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FOREWORD 



The COBOL Compiler Validation System (CCVS) Users Manual is intended as a 
reference manual for on-site operations. 

The system was developed as a part of Project 6917 under Contract F19628- 
67-C-0424 for the Electronic Systems Division (AFSC) by Information Manage- 
ment, Inc., San Francisco, California 9A111. The project monitor was 
Mr. Russell A. Meier, ESMDA. The work was performed during the period 
from August 1967 through January 1969. 

This technical report has been reviewed and is approved, 

WILLIAM F. HEISLER, Colonel, USAF 
Director, Systems Design & Development 
Deputy for Command & Management Systems 
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ABSTRACT 



This technical report consists of detailed specifications for the use of 
the COBOL Compiler Validation System (CCVS) . The system is designed to 
measure the compliance of a specific COBOL compiler against the American 
National Standards Institute standard COBOL (ANSI X3. 23-1968). This 
report describes the card input formats, deck structures, tape require- 
ments, test modules, and operator procedures required to use the system. 



Ill 



TABLE OF CONTENTS 

Section Page 

I . INTRODUCTION 1 

1 1 . SYSTEM DESCRIPTION 3 

2 . 1 The USA Standard COBOL 3 

2.2 CCVS Design Criteria 6 

2 . 3 CCVS Components 9 

2.3.1 The CCVS Data Base 10 

2.3.1.1 Environmental Data 10 

2.3.1.2 Tests 11 

2.3.2 The Population File Maintenance Program 11 

2.3.3 The Selector Program 12 

2. 3. A The Source Program Maintenance Program 12 

2.3.5 The Test Programs 13 

2 . A How the CCVS is Used ] 3 

2.A.1 Initial System Preparation 13 

2. A .2 Test Program Generation lA 

2. A. 3 Test Program Execution 15 

2. A. A Test Results Evaluation 17 

III. USAGE INSTRUCTIONS 18 

3.1 Population File Maintenance Program 18 

3.1.1 Preparation of Inputs 18 

3.1.1.1 Environmental Data 18 

3.1.1.1.1 Environment Header 19 

3.1.1.1.2 Environmental Data Cards 21 



Section Page 

3.1.1.2 Tests 21 

3.1.1.2.1 Test Header 21 

3.1.2 Results of Operation 2A 

3.2 Selector Program 28 

3.2.1 Preparation of Inputs 29 

3.2.2 Results of Operation 33 

3.3 Source Program Maintenance Program 35 

3.3.1 Preparation of Inputs 36 

3.3.2 Results of Operation 39 

3. A Character Code Conversion Program AO 

3 .A. 1 Preparation of Input AO 

3.5 Test Program Output Analysis A2 

IV . OPERATING INSTRUCTIONS A6 

A. 1 Compilation and Execution A6 

A. 2 Population File Maintenance Program A9 

A .2 . 1 Input-Output Assignments A9 

A . 3 Selector Program 50 

A.3 . 1 Input-Output Assignments 50 

A. 3. 2 Sort Control Fields 52 

A. A Source Program Maintenance Program 53 

A.A.I Input-Output Assignments 53 

A. A. 2 Preparation of Test Program Change Deck 5A 

A. 5 Character Code Conversion Program 55 

A. 6 Test Programs 56 

A. 6.1 Program 10 57 

A. 6.2 Program 11 58 

vi 



Section 



Page 

A. 6.3 Programs 12-lA 59 

A. 6. A Programs 15-16 59 

A . 6 . 5 Program 19 59 

A . 6 . 6 Programs 30-AA 59 

A . 6 • 7 Program A5 60 

A . 6 . 8 Program A6 60 

A. 6. 9 Program A7 60 



Vll 



Section 
APPENDIX I 
APPENDIX II 
APPENDIX III 
APPENDIX IV 
APPENDIX V 
APPENDIX VI 
APPENDIX VII 
APPENDIX VIII 



Page 

DROP CODE LIST i 61 

DROP CODE USAGE IN TESTS 66 

INITIATING ENVIRONMENTAL DATA 77 

TEST DIRECTORY 89 

PFM DIAGNOSTIC MESSAGES 133 

CONSIDERATIONS IN CREATING TESTS 135 

SYSTEM GENERATION SPECIFICATION 142 

SAMPLE CONTROL CARDS FOR CHARACTER CONVERSION 

PROGRAM 144 



viii 



LIST OF FIGURES 

FJRure Vay^c 

1 . Schematic Diagram Showing the Structure of the 

USA Standard COBOL A 

2 . The Validation Process 16 

3 . Environmental Data Card Format 78 

6 . Environmental Data Cards for XYZ-8795 8A 

5 . Output Listing of Environmental Data for XYZ-8795 86 

6. Relationship Between User Input and PFM Envrion- 

mental Output 87 

7 . Sequence Numbering for Test Cards 136 

LIST OF TABLES 

Table Page 

1 . Drop Code Usage in Tests 60 

2. Drop Code Assignments by Test 71 



IX 



SECTION I 
INTRODUCTION 

The purpose of this manual is thraafold. First, it prouidas an intro- 
duction to tha COBOL Compiler l/alidation System. This introduction 
is directed both to prospective users of the system and to those u/ho 
are merely interested in its objectives and hoiu they are achieved. 

Second, it provides detailed instructions in the use of the CCUS in 
measuring COBOL compilers against USA Standard COBOL. Finally, it pre- 
sents guidelines that may be useful to those responsible for system 
maintenance or extension. 

The manual is divided into four parts. Part 2, luhich immediately 
follouis this introduction, is a general description of the COBOL Com- 
piler l/alidation System. As prelude it offers a brief description 
of houi USA Standard COBOL is structured, then discusses the design 
criteria under u/hich the system u/as developed, the functions performed 
by the system's components, and finally, the u/ay in u/hich the system 
is used in measuring the degree of compiler standardization. 

Part 3 presents the details of hoiu to use the system. It describes 
the control information needed for expanding the system in terms of 
both its environmental "knou/ledge" and its repertoire of tests, and for 
generating test programs. A concluding section discusses the meaning 
of the results obtained from executing a test program and hou/ such 
results can be traced through the system to find their purpose and 
resolve suspected compiler faults. 

One of the primary design objectives of this system is the ability to 
run on any computer u/ith a COBOL compiler. This flexibility places a 
limit on the detail u/ith which this document can discuss certain facets 
of the system. This is particularly true in the area of operating 
instructions. Because the programs generated by the 
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system uuill run on a variety of computer-compilers, this manual can 
only enumerate the kinds of information an operator might require and 
indicate uuhere he might find more specific instructions for operating 
ujithin a particular environment. 

Part 4, therefore, discusses in very general terms the kind of inform- 
ation that operating systems will require in order to correctly 
compile and execute the system itself and the test programs it gener- 
ates. 
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SECTION II 
SYSTEm DESCRIPTION 

The COBOL Compiler Validation System (CCUS) is designed to measure ''e 
extent of compliance of any COBOL compiler luith the set of COBOL lany- 
•age elements specified in USA Standard COBOL. To obtain a measurement, 
Lhe user indicates to the CCUS the composition of the COBOL language 
set that forms the baeis for a particular evaluation. In reeponse, the 
ecus produces one or more COBOL source programs that contain a represen- 
tatiue sample of statemente draiun from the specified set. This program 
(or set of programe) ie then compiled and executed. During execution, 
the results are compared uiith those that should obtain if the compiler 
had been implemented according to the standard. 

In order to guarantee a common baee of knowledge among the readers of 
thie document, a brief deecription of USA Standard COBOL folloujs. This 
description is excerpted from Chapter 1 of X 3.4 COBOL Information 
Bulletin #9, pages 1-1 through l-6a. 

2.1 USA STANDARD COBOL 

In order to represent more effectiuely thea uses for ujhich COBOL nas bp^n 
designed, the historical organization of COBOL specifications, that is, 
Identification Div/ision, Enuironment Div/ision, Data Division, and 
Procedure Div/ision has been revised luithin the proposed standard. The 
neuj organization is oriented around a functional processing modulR (FPfYl) 
concept . A nucleus (for internal processing) and seven functional pro- 
cessing modules have been defined. These functional processing mnduies 
are Table Handling, Sequential Access, Random Access, Sort, Report lilritRr, 
Segmentation ?ind Library. 

The Nucleus has been divided into tujo levels. The loiuer level contains 
the elements required for basic internal processing and is a proper 
subset of the high level. Each functional processing module contains tujo 
or more levels. In all caees, the loujer levels are proper subsets of 
the progressively higher levele ujithin the same module. In addition, some 
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functional processing modules contain a null set as their loiuest 
level. 

This organization provides the flexibility necessary to tailor 
specifications in such a way that they uiill satisfy the requirBmBnts 
of a large variBty of data procBseing applications. At the same time 
it provides the ability to determine uiith a greater degree of certainty 
than previously possible the standard elements that comprise a given 
compiler. 

The requirements for an implementation of USA Standard COBOL can be 
seen by referring to Figure 1. A COBOL implementation that includes 
a specified level of each of the functional proceeeing modules and of 
the Nucleus, implemented as defined in the etandard, will be considered 
to meet the requiremente for an implementation of USA Standard COBOL. 
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null 


null 


null 



NOTE: The shorthand notation used in this figure is identical to that used 
in the CCUS control cards. It consiets of a number indicating the 
level's position uiithin the hierarchy and a three-character mnemonic 
name. 

Figure 1. Schematic Diagram Shouiing the Structure of USA Standard COBOL 
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As an illustration, the follouiing definitions of minimum and full USA 
Standard COBOL are given: 

The minimum USA Standard COBOL is composed of the minimum level 
of each functional processing module and of the Nucleus. Because 
of the presence of null sets, the minimum standard consists of the 
loui levels of the Nucleus, Table Handling, and Sequential Access. 
The full USA Standard COBOL ie compoeed of the maximum level of 
each functional processing module and of the Nucleus . 

Throughout the USA Standard COBOL Specifications there are certain 
language elements that depend, for their implementation, on particular 
types of hardujare components. The implemantor specifies the minimum 
harduiare configuration required for a given implementation of USA Stan- 
dard COBOL and the harduiare componente thgit it supports. Any language 
elements that depend on harduiare components for uihich support is claimed 
must be implemented. Those language elements that are not implemented 
because of their dependence on harduiare components uihose support is not 
claimed for an implementation must be so specified and their absence 
uiill not render the implementation non-standard. 

Uihen a facility is provided that accomplishes the functions specified 
by any particular COBOL element, it may ba unnecessary to include that 
particular element uiithin the COBOL source program. If such an unneces- 
sary element doee appear in the source program, it must be accepted 
by the compiler. Houiever, if the element does not lead to the produc- 
tion of object code, no substitute statements shall be required uiithin 
the COBOL source program to accomplish this function. 

By the same token, the indue ion of language elements or of functions 
that are not a part of the USA Standard COBOL specifications uiill not 
render an implementation of USA Standard COBOL non-standard. This is 
true even though it may imply the extension of the list of reserved 
UJords by the implementor, and prevent proper compilation of some pro- 
grams uihich conform to the Standard, 
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2.2 CCV/5 DESIGN CRITERIA 

The CC\/5 has been designed to fulfill the folloujing functional require- 
ments : 

1 • Thoroughness : The tests dev/eloped for each standard module must 
explore a compiler and its generated code to an extent sufficient 
to giv/e a high probability of accuracy to its ev/aluation. This 
objectiv/e has been accomplished by testing a particular function 
to: 

a. Exercise all its basic structural v/ariants. Structural v/ari- 
ants arise from the format of a particular statement or func- 
tion, as modified by the applicable syntactical rules. For 
example , the format 

V/ERB operand-1 < ww' f operand-2 

yields tha basic structural v/ariants 

V/ERB operand-1 XX operand-2 
V/ERB operand-1 YY operand-2 

b. Test a sample carefully selected from the set of possible 
combinations of operand types av/ailable to the statement. 

c. Test sev/eral v/ariants arising from the operation of the 
ellipsis (...). 

It is clear that in the majority of cases, a complete test of each 
structural v/a riant, ijuith ev/ery possible combination of operand lyper. 
ujould result in an inordinately large number of statements. Therefore, 
a high degree of judgement uuas exercised in choosing a representa ti\/e 
subset of test statements. Sev/eral possible types of tests haue been 
eliminated from consideration . 

a. No tests are made of erroneous statements. For example, syntac- 
tically incorrect statements are not generated. Such tests ujuuld 
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result in failure to compile or in run-time errors, either of 
which tjould result in confusion. This is especially true in the 
case of run- time errors (e.g., CLOSEing a file that is not in 
open status) because of the difficulty of associating an error 
with a particular statement in a program with a number of errors. 

b. Tests are not designed to indicate how a function is implemented. 
Thus, the CCUS does not attempt to distinguish between good 
(efficient ) and bad (inefficient ) implementations . 

c. No testing of non-standard extensions to COBOL is made. There 
are three classes of extensions that are of concern: 

1 ) Valid COBOL features that are not specifically referred to 
by the standard (e.g., COIYIPUTATIONAL-n and the APPLY clause 
are \yalid COBOL features but are not included in the 
standard because they are hardware-related features). 

2) lYIanufacturer extensions that ha\ye no relation to the remain- 
ing COBOL language. (e.g., IBIYI's TRANSFORIYI \yerb.) 

3) lYIanufacturer extensions that are required in order to utilize 
a standard COBOL feature, (e.g., IBIYI's ORGANIZATION and RECORD 
KEY clauses). In the latter case, we will manually include 
such statements in test programs in order to exercise functions 
that otherwise could not be tested (e.g., Random Access ) . 

The Air Force will ha\ye the same facility for future test 
program modifications. 

d. No test of the ENTER \yerb is made because of the obwious difficul- 
ties in\yol\yed . 

2. Openendedness : The user must be able to alter the population of 
test statements to conform to changes in the USA Standard COBOL. 
For thie reason, the user is prov/ided the ability to odd 
tests to the population file, modify the content of existing tests, 
delete tests, and change the modules against which a test is selected. 
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Ease of use: The CCUS must be relatively easy to use now and 
should become easier to use in the future. As the 
COBOL Standard becomes widely used, it is expected that more and 
more compilers will adhere to its specif ication • Thus, future pasf' 
of use should not be compromised in order to expedite testing the 
system using current non-standard compiltirs. 

In order to accomplish this objective, the population of tests has 
been designed without reference to current implementations ; the 
standard was the only reference material used. Thus, a "standard" 
compiler would compile and execute those modules it implemented 
with no adjustment whatsoever. This is the condition that (hopefully ) 
will exist in the future. In order to make it easy for the user to 
cope with current implementations that are far from standard, a soui it 
program maintenance feature is provided • This feature facilitates t hp 
addition, deletion or modification of test program statements in order 
to tailor a particular test program to a non-standard implementation. 

Additional features that make the CCUS easy to use are: 

a. A test case can be specified by a user who does not have a 
detailed knowledge of COBOL . However, the activities involved 
in obtaining a test program that executes and evaluating the 
test results require some degree of expertise. As noted above, 
these activities should diminish in time. 

b. Test results are clearly marked when they do not correspond to 
the result expected. The tests are documented in such a way th?it 
the offending test and the part of the standard to which it appLi'' 
can be quickly identified. 

c. The system is thoroughly documented to facilitate future maintenance 
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d, A particular compiler may be measured against any combination 
of Functional Processing modules (FPIKl's), because the 
CCV/S luill construct test programs containing a single FPIYl 
or any combination of FPIfl's up to and including full USA 
Standard COBOL. The selection of FPIKl's to appear in a par- 
ticular test program is based on a single, user supplied con- 
trol card. 

4 . ilfia chine Independence : Both the validation system and the test 
programs it produces must be available to operate on any computer 
for ujhich a COBOL compiler is available and to do so with a minimum 
of reprogramming or manual intervention. The only hardware re- 
quirement imposed by the CCUS is rriinimal Input-Output configura- 
tion. The system requires that environmental data be supplied 

for each compiler that will be validated. Once this information 
has been supplied to it, the CCV/S automatically generates the 
Environment Division and other hardware-oriented entries required 
by a particular test program. The environmental data is available 
to the ecus until the user chooses to delete it. 

5. Extendability: The underlying design of the CCUS must be of 
sufficient generality to be applicable to the validation of the 
compilers of other languages against their standards. 

It is evident that one criterion usually specified for computer systems 
- namely, efficiency - is missing from this list. Efficiency, in the 
case of the CCV/S, is of relatively little importance, because it will 
not be run as a regularly scheduled program. Furthermore, its effi- 
ciency would have been exceedingly difficult to predict since it de- 
pends almost entirely on the design point of the compiler being tested. 

2.3 ecus Components 

The validation system consists of three computer programs and a data 
base. One program, the Selector, operates on the data base to pro- 
duce the test programs called for by the user. A second program, 
Source Program lYIaintenance, is available to modify the selected test 
programs to: l) remove statements that do not compile or run 
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successfully, and 2) add statements that are necessary to test 
non-standard features or that support standard functions. The 
third program, Population File maintenance, is av/ailable to 
modify the set of av/ailable test statements that comprise the 
data base, and to add, delete or change env/ironmental data. 

Thus, the CCUS is not a set of COBOL Compiler test programs, 
but rather, a system capable of generating a v/ery large number 
of "tailored" test programs. A particular test program can be 
tailored by the user to fit the env/ironment of a particular COBOL 
compiler, to include representative operations from any subset of 
FPiyi 's and to exclude tests of certain functions that are knoujn to 
be inoperative or not implemented in the compiler undergoing 
evaluation • 

The compiler test programs themselves need exist only during the 
short period of compiler evaluation. At all other times, the 
individual tests that comprise these programs are resident in the 
Population File. 

2.3.1 The ecus Data Base 

The data base or "Population File" contains tujo distinct kinds 
of information: environmental data and tests. Both types of 
information are carried as unblocked 80-character COBOL source 
card images. The content of the Population File is discussed in 
detail in 3.1.2. 

Environmental Data 

The COBOL Environment Division contains a number of implementor 
names and other implementation dependent information. To a lesser 
extent, the Data Division contains information of a similar nature. 
In order to make the specification of a test program as easy as 
possible, this environmental data is maintained in COBOL Source card 
form for every compiler of interest. Thus, ujhen a test program 
is to be generated for, say, the B-8500, the user merely specifies the 
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computer-name to the Selector Program, and it then selects the 
Environment Division entries appropriate to modules included in 
the test, using the environmental data contained in the B-8500 
table on the Population File. 

Environmental Data ie carried on th« Population File in order 
by mnemonic computer-name. A set of data for a particular com- 
piler-computer coneiete of an environment header card folloiued 
by a eeriee of COBOL eource entries. 

2,3.1.2 Teets 

A Teet coneiete of one or more COBOL statements that exerciee a 
particular COBOL function (e.g., a verb). These etatements are 
surrounded by a eet of supporting Data and Procedure Division 
entries. The general eequence of statements luithin a Test is 
as follous: 

1. Source and Result fields. 

2. Initialization procedures. 

3. The actual statements that perform the test. 

4. Statements that move the test name, actual result and 
expected result to a common ujork area, and perform the 
result analysis and output routine that is common to each 
test program. 

Tests are carried on the Population File in test serial numbor 
sequence. Each test begins luith a test header, folloiued by the 
source cards comprising the test . 

The various system utility programs comprise a special category of tests. 
UJhile functionally different, they reside on the population file 
in order to utilize environmental data in the same luay as tests. 

2.3.2 The Population File dflaintenance Program 

Thie program operatee on the Population File, and enables the 
ueer to add, modify or delete both environmental data and tests. 
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The most frequent use of this program uill be the addition of 
environmental data for neu compilers and the deletion of data for 
compilers that are no longer undergoing tests. The modification of 
tests should occur only when the USA Standard COBOL changes. Such 
a change may require the addition of neu tests, the deletion of 
existing tests, the shifting of tests from one level of a module 
to another or between modules^ or some combination of these* 
These operations are available to users through this program* 

2*3*3 The Selector Program 

The Selector program performs three functions: 

1* Using the compiler-computer name supplied by the user, 
locates the applicable environment data and saves it* 

2* Using the user supplied specification, selects those tests 

appropriate to the standard modules to be tested, deletes those 
tests designated by the user, and obtains the Environment 
Division statements required by the selected tests from the 
data saved in Step 1* For convenience, the Population File 
Maintenance, Selector and Source Program Maintenance 
Programs are handled like tests in order to supply them with 
Environmental Data* 

3* Places the resulting series of teste and supporting statements 
in the order required for compilation, after removing certain 
data items with identical descriptions* Operating system con- 
trol cards can optionally be placed before and after the source 
deck* 

^•^•^ The Source Program Maintenance Program 

This program is used to modify the source tape of a test program 
either before its initial compilation or between compilations* 
Modification may be necessary because: 

1* The user wiehes to test one or more non-standard features 
known to be implemented on the compiler, or 

2* One or more test statements did not compile correctly or, 

having compiled, caueed the object program to end abnormally* 
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2,3,5 The Test Program 

Each test program produced by the Selector program is a complete 
COBOL source program, ready for compilation. The exact composition 
of a particular program depends on the contents of the information 
that the user supplied to the Selector program. 

Each individual test uiithin a program audits a particular feature 
or element of the COBOL language by executing one or more procedural 
statements. The result of that execution is then compared to a 
pre-determined "standard" result by a support routine, A parameter 
supplied to the Selector determines luhether all tests results, or 
only those that differ from standard, are displayed, 

2,4 HOm THE ecus IS USED 

This section describes the general activities required on the part 
of the user to validate COBOL compilers using the CCUS, The 
activities are divided into four phases : (1) Initial system pre- 
paration, (2) Test program generation, (3) Test program execution, 
and (4) Test result evaluation, 

2.4,1 Initial System Preparation 

The ecus is delivered on an IBIYl 360 loadable tape . Appendix G 
contains a description of houi to generate the Character Code Con- 
version Program, the Selector Program, and the Population File. 

The initial step in using the CCUS is the compilation of the Selector 
program on the user 's computer. This program, as uiell as Population 
File lYlaintenance and Source Program [Maintenance, is uiritten in a 
subset of minimum USA Standard COBOL to insure, as nearly as 
possible, that it will compile into a useable program uihen processed 
by any COBOL compiler. The COBOL subset is described in Appendix 4 
of the CEI Detail Specification, Part I (reference 3) , 

The Selector program is carried on the Population File and can be 
selected uiith all its Environment Division entries completed, 
providing another computer is available on mhich to make the selec- 
tion. Alternatively, the user can manually complete the necessary 
entries. Once the three phasee of the Selector have been compiled, 
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the object programs must be interfaced u/ith this implemsntor * e 
Sort Program (the Selector does not utilize the COBOL SORT uerb) 
and Operating System. 

The Selector program in its object form may nou; be used to generate 
the Population File maintenance program and the Source Program 
lYlaintenance program. 

The Population File u/ill be delivered luith the user's computer 
reflected in the environmental data section ♦ Thus, no 
Environment Division entriee are required prior to thie 
compilation. After compilation, thie program muet also be 
interfaced u/ith the Operating Syetem. 

Under normal circumstancee, the Selector program will be com- 
piled and run on a aingla 'baae' computer, oe u/ill the 
Population File Maintenance program. These programe in their object 
form u/ill be used to generate teet program(s) and a Source 
Program lYlaintenance program for each compiler to be validated. 
It is unlikely that the Selector program itself need ever be 
compiled on any other computer. Furthermore, it seems prudent 
to limit access to the Population File lYlaintenance program and, 
hence, it too need eeldom, if ever, be recompiled. 

2.4.2 Test Program Generation 

The firet step the user takee u/hen he desiree to generate a test 
program ie to determine u/hether the Population File contains 
environmental data for the implementation in question. This can 
be ascertained from the latest print-out from the Population File 
lYlaintenance program. If the data ie not there, it ie created in 
the manner explained in appendix C and placed on the file by a 
Population File lYlaintenance run, as explained in Section 3.1. 

Next, the ueer must decide u/hich functione and u/hich level of each 
function he u/iehes to meaeure the implementation against. There are 
at leaet tu/o u/aye of arriving at thie decieion: 

1. The reaeon for evaluation may provide the criteria. For 

example, if the compiler hae been named ae part of the ansu/er 
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to a Request for Proposal, the RFP may contain a list of the 
modules that must be implemented, or the issuing agency may 
hav/e a standard requirement that provides this information. 

2# The implementor may claim in his advertising the level at 
which his compiler is rated. The user may simply wish to 
verify this claim. 

If neither of these ways is open, the user can resort to the 
"relaxation" method. That is, he may measure the compiler 
against full USA Standard COBOL, then successively reduce the 
requirements until he achieves a clean compilation. This, 
obviously, is a time consuming approach. 

Finally, the user can review the implementor ' s COBOL manual 
and determine which elements in the modules to be tested are 
not available in this compiler. These elements can be 
identified to the Selector program for elimination. 

The next step in preparing the Test Program is to run the Selec- 
tor program to generate the Source Program fYlaintenance program 
and the specified test program(s) for the implementation being 
evaluated. Thia run is discussed in Section 3.2. 

Finally, a set of Operating Syatem control cards must be pre- 
pared according to the implementor ' s manual. These cards will be 
used for both the compilation and the execution of the program(s), 

2.4.3 Test Program Execution 

The validation process is diagrammed in Figure 2. The first 
step is the compilation of the source deck of the test program(s) 
as it emerges from the Selector Program. If the compilation is 
free of serious error messages, the object deck of the test 
program is executed. If compile-time errors have occurred, the 
user must trace each measage back to the source statement that 
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caused it and, using the Source Program lYlaintenance program, 
modify the source deck of the test program to eliminate the errors . 
Output from the Source Program lYlaintenance program should be 
kept to document the changes. The test program is compiled (and 
modified as required) until all serious error messages are 
eliminated. 

The final step of the validation process is to run the object 
version of the test program. If an error occurs during the 
run, the error must be traced to the source program, the program 
must be modified using Source Program lYlaintenance, then compiled 
again. 

2.4.4 Test Results Evaluation 

The result of a validation run - the answer to the question of 
compiler compliance with a particular set of Standard modules - 
must be determined from: 

1. The list of language elements initially eliminated by the 
Selector program. 

2. Any messages from the Selector program concerning missing 
environmental data . 

3. The modifications made to the source deck of the test 
program as indicated in the output of Source Program 
lYlaintenance. 

4. The actual test results that are flagged in the output of the 
test program. The test codes that identify each result can 
be used to locate in the Test Directory the test that pro- 
duced the questionable result. This Directory indicates 

the module to uihich the test applies and the particular 
feature being examined. 
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SECTION III 
USAGE INSTRUCTIONS 

3.1 POPULATION FILE ITIAINTENANCE PROGRAIYl (PFITl) 

The PFUfl program maintains the CCUS data base - the Population File. 
This file contains tuio dietinct kinde of data: Environmental Data and 
Tests. Both typee are compoeed of groups of related COBOL source entries, 
uiith the groups sequenced by an identifying code. The PFUfl treats each 
type of data eeparately. It has the facility to add, delete, change the 
content of, or merely print groupe of each type. Input to PFUfl consists 
of entry information arranged in the eame sequence as the Population File , 
and the Population File iteelf. Output ie a reuieed Population File, 
error meseagee, and listinge of the groupe added, deleted, changed or 
requested for printing. 

3.1.1 Preparation of Inputs 

3.1.1.1 Enuironmontal Data 

Each unique configuration for uihich a test program ie to be generated is 
identified to the CCUS by an indicative name and ie repreeented on the 
Population File by a set of COBOL eource entries. Theee source entries are 
constructed by the PFIYl from user eupplied input and can be referred to by 
any test in euch a way that the Selector Program uiill replace the reference 
by the entry referred to. In this uiay, the tests and the system utility 
programs are tailored to run on an individual configuration. 

Environmental input coneiets of a header card that contains the indicative 
computer name and an indication of the action to be performed, follomed 
by one or more data carde (unleee a "delete" action ie epecified). 
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3. !• !• 1. 1 Environment Header ; The format of the Environment Header card 
is shouin below. 





1 3 



1 
3 



|E indicative-computer-name < } 



P 



The Environment header card is identified by the 'E* in column 1 , 
follouied by a blank in column 2 . 

Columns 3 through 12 contain the indicative-computer-name by 
which the PFIlfl, the Selector, and the user refer to the entries. 
Because environmental data groups are sequenced by indicative 
name and because collating sequence differs among computers, a 
consistent format for this name must be adopted by each user. 

Indicative name is assigned by the user and has the basic fixed format: 

AAANNNNMNN 



uihere: 



AAA contains the alphabetic abbreviation for the configura- 
tion's manufacturer. No spaces are permitted. For 
example. Control Data Corporation could be abbreviated 
as CDC, General Electric as GEC and Burroughs as BUR. 
Any abbreviation can be used as long as it is three 
letters long with no imbedded blanks. 

NNNNNNN is all numeric and contains the configuration *s model 
number and any other information such as system number, 
compiler level, etc. UJhile the only requirement is that 
this field be numeric, it is suggested that the last two 
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digits be used to guarantee uniqueness among different 
configurations of the same series computer. 

Column 13 contains the Action Code. Four options are awrailabiB; 
A Add a new) set of entries identified by the indicative name, to 

the Population File. UJhan this option is used , all tiuelve 

environmental data cards must folloui the header. 

D Delete the set of entries identified by indicative name. lUhen 
this option is used, no environmental data cards folloui the 
header. 

C Change the set of entries to reflect the information contained in 
uihichever data cards folloui. The header is folloiued by from one 
to tuielve environmental data cards. Replacement is done on a 
card by card basis. Therefore, all entries in a given card must 
be filled out correctly, even though only one entry Lepreso;u:.> 
a change . For example, if entry 31 on card 9 is to be chanyed , 
entries 26 through 30 and 32 through 34 must be filled out exactly 
as they luere for the initial entry, even though they themselves 
are not being changed. (see Figure 3, Appendix C for card format). 

P Print the entire set of environmental entries for indicative nam^ . 
Because an A, D or C option uiill cause automatic printing of tho 
entire set of entries, the indicative name appearing ujith a P optiofi 
must not appear anywhere else in the environment input stream foi 
a given PFIYI run. 
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3.1.1.1.2 Environmental Data Cards . There are twelve environmental data 
cards that can folloui the environment header uihen the operation 
specified is "add" or "change". These cards are filled out 
according to a set of queetions using information from the imple- 
mentor's COBOL manual. 

Appendix C contains the questionnaire, a blank environmental 
data sheet shoiuing the card formats, and a sample environmental 
data sheet for a fully implemented USASI compiler together with 
the corresponding output of a PFM run. 

3,1,1.2 Tests 

Each Test begins uiith a test header that contains the Test's 
serial number, the program number in which the test appears, the 
module membership indicators, and one or more drop codee that, uihen 
specified to the Selector program^ cause the Test to be deleted from 
a particular test program. The header is follouied by the source 
cards that comprise the Test. Each card of a Teet is coded uiith 
a unique eequence number that ie uscid by the Selector program to 
place the card in the correct sequence for compilation. 

3.1.1.2.1 Test Header. The format of the test header is shown below. 



1 3 



8 9 



11 



55 



c 



J 



test-serial-number < C / program-numbBr modules drop-codes 

D 



Columne 1 and 2 of the Teet Header contain T followed by a space. 
Columns 3-7 contain the test serial number. Tests are carried 
on the Population file in test serial number sequence. This 
eerial number uniquely identifies each teet to the PFIYl, Selector 
and the user, and has the format: 



"\ 



Nnnnm 
XXtntn > 
YYmm j 
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luhere n is the level (1, 2 or 3) uiithin the module; N identifies 
the Nucleus and mmm the sequence of the test u/ithin the Nucleus; 
XX identifies one of the functional modules and mm is the sequence 
number of the test luithin that module; or YY identifies a non-test 
reeident (e.g., a system utility program) and mm is the phase number 
or 01 if the raaident has only one phase. 

The functional modula identifiers are: 

TH Table Handling 

5Q Sequential Access 

RA Random Accsas 

ST Sort 

RUJ Report UJriter 

SG Segmentation 

LB Library 

The current non-test resident identifiers are: 

PF Population File fYlaintenance 

SL Salactor 

SP Source Program Maintenance 

SU Support Routine 

Column 8 containe the folloiuing action identifiere: 

A Add the teet header and the aeries of carde betiueen it and the 
next header to the Population File. 

D Delete the teat luhoae serial number begins in Column 3 of this 
card. Uihen thie option is used, no source test cards folloiu 
the header. 

C Change the teat identified in columns 3 - 7 to reflect the data 
in the cards that folloiu. Thie header replacee the existing 
header. If eource carda folloiu the header, they are merged 
into the existing test in order by sequence number (a neu/ 
card replacee an old card luith the same sequence number). 

P Print the teat. Since options A, D and C cause the teat to be 
printed, this option ie used to print testa not otheruiiee men- 
tioned in the input etream for this PFIYl run. 
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Columns 9-10 contain the program number in uihich the? test 
appears. Program numbers hav/e been assigned as folloujs: 

01 Support Routine (nev/er appears alone) 

02 PFtYl 

03 SPtYl 

04 Selector I 

05 Selector II 

06 Selector III 

07-09 Reserv/ed for system programs 

10 NUC (except 1l\1304, 1(\J305, 1l\13V;, 1l\1315, 2(\j050, 2(\j051 and 2m[/A) 
TBL 

SEQ (except RERUN, 1SQ27--31, and 2Sql5) 

RAC (except 2RA18) 

2SRT 

IRPliJ (except IRliJOl) 

11 1SEQ (RERUN, 1SQ27-31) 
2RPIU 

12 1SEG 

13 2SG01 

14 2SG02 

15-10 LIB (except 1LB04, 1LB06) 

19 1NUC (CURRENCY SIGN, 1N314; DECIIYIAL POINT, 1N315) 

20 1N304, 1N305, 2N050, 2N051 , and 2N052 

21 2RA1B 

22 2SQ15 
23-29 Unas signed 

30-44 1SRT (1 test per program) 

45 1LB04 

46 1LB06 

47 IRliJOl 
40-49 Unassigned 

50 Library Entries for 1LIB, 2Lin 

99 9ZZ99 (header only ~ for artificial end-of-fi lo ) 

Columns 1 1 through 54 contain from 1 to 9 designations of the 
module and lev/el to uihich the test applies . All tests in the Inuj 
lev/el of a module designate both the louj and high levels. Iho 
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designation is coded in standard form scparaieid by commas with 
no JniGrv/nning spaces (e.g. , 1TBL, 2TDL, 3TEiL) . 

Columns 55 - 00 contain up to 9 tujo-digit *'drop codec". Ihcsc 

codec refer to COBOL language features that are commonly not 

implemented in currently available compilers. The present list 

of codes is found in Appendix A. This list can bo expanded by 

the user by merely adding features and corresponding uniriue codes to 

the list. During a Selector run, luhen a drop code appears in a tcijt hoLttliM 

and a Selector program DROP card, the test is dropped. The codec 

are separated by commas with no intervening spaces (e.g., 1D,2L,5C). 

3.1.2 RLSI JL.TS OF nP[:RATION 

The Population File that is produced by this run is unlabeled and 
consists of unblocked 80-character card images. The sequence of 
information on the file is as folloius: 

1 . Environmental Entries, in sequence by the indicative-computer- 
name in columns 3 through 12 of the Header card of each set. 
An environmental set consists of: 

a. The header 

b. Fifty-tuio environmental data cards, in sequence by coJumnr. 
1 through 6. 

2. Tests and other residents, in sequence by the test serial 
number in columns 3 through 7 of the Header card of each test. 
A test consists of: 

a . The header 

b. Any number of source cards in sequence by columns 1 through 6. 

The Population File contains the following items: 

1 . Environment sets: 

BUR0350001 
CDC0640001 
GEC0062501 
IBIlfl003600l 
UNU0110B01 
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2/ Tests and other residents: 

OLBOO 

0SL01 through 0SL03 

05U01- 

1LB01 through 1LB10 

1N001 through 1N31B 

1RA01 through 1RA0B 

1RUi01 through 1RUi03 

1SG01 through 1SG14 

1SQ01 through 15Q31 

1ST01 through 15T15 

1TH01 through 1TH04 

2LB01 through 2LB10 

2N001 through 2N061 

2RA01 through 2RA18 

2RUi01 through 2RUi05 

25G01 through 25002 

2SQ05 through 25Q15 

25T01 through 25T06 

2TH01 through 2TH04 

3TH01 through 3TH06 

9PF01 

9SP01 

9ZZ99 

Test 9ZZ99 consists of a header only and is used by the 

Selector program as a machine- independent end-of-f lie indicator • 

The result of a PFIYl run depends on the action specified: 

1. Add Action. The add action in the case of the Environmental 
data creates a header and 52 card images. The add action for 
a Test places tho card imacjos complete uiith header on the 
pojuilation file exactly as thoy are received from the input 
device. The noui entries are printed out • 



-25- 



2. Delete Action. The delete action in either the case of the 
environmental data or the tests deletes all card images 

on the population file until the next header is found. In 
both casoG the deleted information will be printed out. 

3. Print Action. The print action simply prints and copies 
the card images up until the next header. 

4. Change Action. The change action in the cqse of the 
Environmental data changes only that information on a 
particular input card. The sample belouj will illustrate 
this: 

The input cards: 



E XYZ0079501C 
06 



READ-UNIT 



ujill change ET0230 and ET0240 under the header E XYZ0n79[501C 

from (See Appendix C for an explanation of Environmental cards) J 

ET023U DI5K2 

ET02^iO READER 

to 

ET0230 

ET0240 READ-UNIT 

Note that the blank field on the input card uias transmitted 

to ET0230 ujhich means that all information generated by 

an environmental data card must be present if it is not to 

be blanked out. 

The change action for a test operates on the basis of the 

serial numbers in columns 1 through 6 on the test card 

images • Equal serials cause replacement by input, unequal 

serials cau^^.e collation in sequence. The folloiuing example 

ujiJ 1 clarify: 
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The input cards; 



T 2ST01C102SRT 


4G ,4U 


854400 ADD 1 




854405 TO SUP-NUITl-UIK. 





Uiill change 

854400 ADD 1 TO SUP-NUIYI-UJK. 

854410 lYlOUE **' TO SUP-CTL (SL!P-NUIY1-U)K) . 

to 

854400 ADD 1 

854405 TO SUP-NUIYl-UJK . 

854410 lYIOUE **• TO SUP-CTL ( SUP-NUIYl-UJK ) . 

and the old header 

T 2ST01A102SRT 4G ,4T 

ujill change to 

T 2ST01C102SRT 4G ,4U 

In both the test and the environment case the entire set of 
card images betiueen headers of the changed file luill print out, 

Appendix E containe the liet of diagnoetic messages produced 
by PFITfl. 
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3.2 SELECTOR PROGRAM 

The Selector generates test programs from Population File 
entries, based on user supplied control information. 

The Selector is capable of supplying any resident on the Population 
File uiith environmental data. The only prov/isions are that,: 1 ) t ne 
resident must be entered through a PFIYl run in the manner specified 
for tests, and 2) the resident must be named on the TEST card. 
The PFIYl, SPIYl, the Selector itself and 'COPY' Library entries (for 
tests of LIB) are currently supplied uiiih environmental data in 
this fashion. 

The inputs to the Selector are the Population File and a set of 
control statements that define the test programs that are 
to be generated. 

Principle considerations in the preparation of these control 
cards are the machine-compiler configuration subject to test, 
the modules of USA Standard COBOL against uihich the compiler is 
to be measured, uihich (if ariy ) standard features are knoujn not 
to be implemented, and the operating system's requirements for 
the subject machine and the compiler environment. Each consi- 
deration is expressed in a separate control card. 

The Selector produces one or more test programs plus a set of 
diagnostic and inf irmative messages. 
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3.2.1 Preparation of Inputs 

Ths Selector accepts five control cards, the first tujo of luhich 
are required. They are as f olloujs : 

HDllJR - Hardware description ; This card is required and 
indicates the indicative-name assigned to the environmental 
data to be used by the Selector in tailoring the test programs. 
The format of the HDUJR card is: 



1 6 

HDliiR indicatiue-name , ALL 



Indicatiue-name must be identical to the name that appears 
on the header card of an environmental data set (see 3.1.1.1.1), 
This environmental data uiill be used to tailor uihatever 
Population File residents are named on the TEST card. 

The optional parameter ALL specifies that all test results are 
to be printed by the test programs luhen they are executed. 
The omission of this parameter causes only those results that 
differ from the expected results to be printed. 

TEST - test specification card : This card is required 

and indicates: 1 ) the content of the test program in 

terms of Standard modules, and 2) uihich ECUS utility programs 

(or data) are to be selected from the Population File and 

tailored. lYIore than one TEST card can be used if a single 

card is overfloiued. The format of the TEST card is: 



1 6 

TEST nXXX ,nXXX 
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Tha indicator nXXX may be: 

1. Tha name of a USA Standard COBOL modula (a.g., 1NUC, 
2RPIU). Appendix D discusses the tests that comprise each 
module • 

2. The special indicators: 

a. KYIIN uihich stands for the 'minimum standard requirement - 
1NUC, 1TBL, 1SEQ. UJhen IfYlIN is specified, modules other 
than the three for uihich it stands may also be specified. 

b. KYIAX Uihich stands for the maximum standard requirement - 
2NUC, 3TBL, 2SEQ, 2RAC , 2SRT, 2RPIU, 2SEG, 2LIB. UJhen IfYlAX 
appears, no other modules may be specified. 

3. The resident designators:* 

0SL1 Selector, phase 1 

0SL2 Selector, phase 2 

0SL3 Selector, phase 3 

OLIB "COPY" Library entries for both 1LIB and 2LIB 

IPFfYl Population File (Ylaintenance program 

1SPM Source Program Maintenance program 



*0 equals zero 
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In the table beloui, an X indicatee uihich combinations may 
appear together on a TEST card: 





imiN 


IITIAX 


nNUC 


nTBL 


nSEQ 


other 
modules 


residents 
(not tBsU) 


imiN 












X 


X 


imAx 














X 


nNUC 








X 


X 


X 


X 


nTBL 






X 




X 


X 


X 


nSEQ 






X 


X 




X 


X 


other 
modulee 


X 




X 


X 


X 


X 


X 


reeldents 


X 


X 


X 


X 


X 


X 


X 



If the computer on uihich the test program is to run has a small 
main storage capacity, it is advisable to limit the number of 
modules that appear on a TEST card, ITflultiple Selector runs 
(not multiple TEST cards in a eingls run) mill then be necessary 
to generate all the teet programs needed to satiefy the particular 
validation requiremente. If a further reduction in teet program 
size ie required, the DROP card can be used to epecify by serial 
number certain tsets to be eliminated during eelection. 

DROP - Drop indicatore ; The Drop Card is optional and specifies one 
or more items to be eliminated during the selection process. 
Thie enables the ueer to eliminate features that he knouie are 
not implemented in the compiler being validated before the test 
program ie selected. For example, in validating most currently 
available COBOL compilere for 1TBL, the Indexing feature mould be 
DROPed. Wore than one DROP card can appear in the input stream. 
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DROP identifier , identifier 



Identifier may be either: 

1, A tuio digit "drop code". The relationship of Drop codes to 
standard COBOL features is shouin in Appendix A, A single 
drop code may cause one or a number of tests to be dropped 
from one or more of the modules specified on the TEST card. 
Up to 75 codes may be specified for a Selector run. 

2. A five character test serial number. Each test has been 
assigned a unique serial number (see 3.1. 1,2.1) that associates 
th6 various statements comprising the test. This serial 
number is found in the Test Directory (see Appendix D) and 
uihen used in the DROP card, causes all the statements related 
to the particular test to be dropped. Up to 50 serial numbers 
can be specified for a Selector run. 

It should be noted that if a particular test contains both imple- 
mented and non-implemented statements, the SPIKl program should 
be used to modify it rather than using a drop code to eliminate it, 
unless the entire test is rendered meaningless by the absence of the 
n on- implemented statements. 

HEAD and TAIL Cards : These optional cards enable the user to 
place Operating System Control cards before (HEAD) and after 
(tail) the source deck of each test program. This feature may 
enable a smoother run sequence to be obtained under certain 
Operating Systems. The format of these cards is: 



fHEAcTl nn 

\jailJ 



ujhere n is the number of control cards. This number of cards 
must folloui the HEAD or TAIL card in question. For example: 
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1 cc3 






/ 


/ 


TEST 


/ 




/ 






piT-nnrnm 9 


> 


1 






\ ^**wy*w.. 








f "^ 




, r 


( cc2 










^ TAIL 






ccl 






^ 


( cc2 




will 


Y "3 






— ^ 


1 




1 > 


^TrCT z' 






^ cc1 






result 


..„ / 


ItbT 

program 1 


/ 






( HEAD 2 






r^ 












^cc2 








^ 




f "' 




/ 











Only one HEAD and one TAIL card may appear in the input stream; 
each may contain a different number, but the sum of the two 
numbers must not exceed 50. 

The control cards muet be recognizable ae such to the Selec- 
tor program; that is, they must not contain end-of-file indi- 
cations, nor can they contain all numeric data in columns 1-6, 

As ehown in the example above, when the composite of modules 
selected on the TEST card resulte in the generation of more than 
one test program (eee 3. 1 • 1 • 2. 1 ) , the control cards are repeated 
and placed before and after each individual source program, 

3,2.2 Results of Operation 

The Selector generates one or more test programs depending on 
the parameters of the particular TEST card. The assignment of 
modules to programs is described in 3. 1,1. 2.1. The selected pro- 
grame appear in program number order on the output file. 

In addition, the Selector produces an information and diagnostic 
listing. This list contains two kinds of information in the 
same format: 

1. A list of the serial numbers of all teete dropped together 
with the cause of their removal and the modules in which the 
tests normally appear. 
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2. A list of non-standard situations reflected in the enyiron- 
mental data for the particular implementation. For example, 
the lack of a RESERVE clause would be reported at this point. 

This listing contains three columns: (1) Test serial number, 

(2) meesage, which contains a short message or a drop code, and 

(3) the module and level to which the test belonge, taken from 
the test header card (see 3#1.1.2.1). For example: 



SERIAL 




HIESSAGE 


moouLE 


1N004 




4N 




1NUC,2NUC 


1N316 




4B 
4T 




1NUC,2NUC 


1TH02 




m 




1TBL,2TBL,3TBL 


2SQ11 


ENU 


ERR FATAL 


2SEQ 


2TH02 




im 




2TBL,3TBL 


3TH01 


NAUIED ON 


DROP 


3TBL 



The first three tests were eliminated because their test 
headere contained a drop code identical to one contained on 
the DROP card. Notice that the eecond teet, 1N316, was dropped 
by two drop codee. The fourth test was dropped because the en- 
vironmental data it requested wae missing, and the card in the 
test that requeeted this data indicated that the entire teet 
muet be dropped in this event (eee Appendix F for further 
detaile). The fifth teet was dropped by the eame drop code, 
1IY1, that dropped the third teet. The laet teet wae dropped because 
ite serial number appeared on the DROP card. 

Th© lack of environmental data requeeted by a particular test 
rsBults in one of 2 additional massages: 

ENUIRONITIENT HAS NO ENTRY... CARD DROPPED 
ENV/IRONimENTAL ERROR CAUSES FOLLOUJING TEST TO DROP... 

These messages are interspersed with those deecribed above. 
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3.3 SOURCE PROGRAm (TIAINTENANCE PROGRAM (SPM) 

The primary purpose of SPIfl ie to permit source level modifications 
to test program contents, (flodif ications may be required if 
language elemente are not implemented in the compiler under- 
going tests, or if that compiler obeerues conventions different 
from or in addition to those observed in USA Standard COBOL/ 

(flany of these differences can be handled more easily through 
the Drop Code facility or by entries on the Environmental Data 
portion of the Population File. Character punch code differences 
are handled by the Character Code Convereion Program described 
in 3.4. 

Any differences that cannot be handled by those means, but uihich 
will have an effect on the execution of the teste, must be 
handled by means of an SPITI run. For example, a compiler might 
require certain non-etandard information in FD entries. There 
entries cannot be provided through the environmental data faci- 
lity and, thue, muet be added by means of SPIYI. 

Since the complete universe of changes mhich may become necessary 
cannot be predicted, no eet morking procedure can be eetablished. 
Some factors to consider during test preparation for a epecific 
compiler include these: 

1. Does the implementor note any non-standard features, or 
extensione to USA Standard COBOL that are necessary for 
the correct operation of standard features? 

2. Does the manufacturer note any reetrictions, un-implemented 
or partially-implemented featuree? 
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3. Is the implementation on a par oiith the level of each 
module to be validated in the tests? 

4. Are there known problem areas or "bugs" in the current version 
of the compiler? 

5# Does the compilation of the test program produce error 
messages y or is the execution incorrect? 

6. Do system considerations have an effect on the test design 
(e»g«, file passing techniques)? 

If the answers to any of these questions indicate that changes 
to the test programs are required, the folloujing points must be 
considered in making these changes. 

1. How many tests are affected by the change? 

2« Does the change invalidate the purpoee of any individual test? 

3« Can the change be made more easily by use of either the 
environment table (see PFIti, 3,1) or Selector control cards 
(Selector, 3.2)? 

4. Does the change require reprogramming or redesign of any test? 

3.3.1 Preparation of Inputs 

Input to an SPIYl run consists of the file of test programs produced 
by the Selector, and a set of change cards. Change cards must be 
in sequence by program number (columns 73-74), then sequence number 
(columns 1-6). 
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SPIYl considers any card that is not in sequence by program number/ 
sequence number to be a system control card. Because system 
control cards do not usually contain fields for sequence number 
or program number, changes to these cards cannot be made by 
SPIYl, Rather, the source program must be punched out and such 
changes made manually. The system end-of-file (uihateuer is 
recognized as an AT END condition by the COBOL READ statement) 
cannot appear in the source or maintenance inputs except to desig- 
nate the end of such inputs. 

All modifications are made on a card-by-card basis. To make 
changes to individual u/ords iwithin a statement - for instance, 
to delete an optional u/ord from the middle of a statement - the 
entire card on u/hich that statement appears must be replaced 
by one containing the desired uiording. The individual tests 
haue been designed in such a may as to facilitate card-by-card 
modification. 

The SPIYl input card formats and corresponding functions are as 
f ollouis: 

OPTION ; This cord controls the content of the SPIYl output 
listing. An OPTION card appliee to all programs follou/ing 
it until ouerridden by another OPTION card. 



r 



7 13 14 73 74 

OPTION L program-number 



1-6: must be blank. 
7-12: OPTION. 

13: L or blank. L causes the lieting of the output source 
program uiith the changes annotated (this option is 
aeeumed if no OPTION card is found by SPIYl). Blank 
causes the listing of correction cards only. 
14: must be blank. 
73-74: program number or blank. 
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DELETE ; Single source entries or a aeries of source entries 
may be deleted by means of this card. 



r 



1 7 13 18 73 74 

sequence-no-10ELETE8equenc«-no-2 program-number 

uihere aequence-no-l identifies the first or only source pro- 
gram card to be deleted and 8equence-no-2 identifies the last 
card to be deleted. UJhen only one card is to be deleted, 
sequence-no-2 must be equal to sequence-no-1 • Columns 73-74 
must contain the program numbers. 

No DELETE card may indicate a range uihich overlaps the range 
of another DELETE card. 

Insertions ; These require no control card. The cards to 
be inserted must be assigned serial numbers in columns 1-6 
uihich fall between a pair of existing serial numbers, 

llihen a group of cards is to be inserted at a single point, 
only the first card need be punched uiith a serial number; 
the remaining cards may be blank in columns 1-6, However, 
all must contain the program number in columns 73-74, 

Insertions may be made uiithin the range of a DELETE. 

Replacements ; Replacements are similar to insertions except 
that the serial number field of the replacing card equals 
the serial number on the source program card to be replaced* 

liJhen a series of cards contains more cards than are being 
replaced, the extra cards may either be assigned serial 
numbers between the last replaced one and the following one; 
or, as with inserts, contain a blank sequence field. 
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UJhsn a series of rsplacsmsnt cards contains less cards than 
are being replaced, the sxcsss must be deleted by a DELETE con- 
trol card. In this case, it may be mors convenient to DELETE 
the entire group to be replaced, following it by an insertion. 
Note that blank serial numbered cards follouiing from a DELETE 
card are permitted. 



END: 



/, 


7 


73 74 




END 


program-number 


1-6: 


blank 




7-9: 


END 




10-72: 


blank 




73-74: 


program-number or blank 





SPdfl input cards are arranged in the following order: 

1. OPTION card (optional). 

2. Program groups; arranged in sequence by program number 
(columns 73-74) . 

a. OPTION card (optional). 

b. Deletions, insertions and replacements in order by 
sequence number (columns 1-6). Card uiith blank sequences 
numbers are treated as if they were consecutively 
numbered from the first card of their group. 

3. END card. 

:^ , 3 . 2 . Results of Operation 

An SPdfl run results in: (l) an updated source tape of test 
programs, (2) a listing for each program modified by the run, 
as specified by the option card in force when the program was 
processed* 
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3.4 CHARACTER CODE CONVERSION PROGRAM 

Becauee of the differing reprteentation of character codes in 
different computers, a charactsr code convereion program has 
besn furnished. Thie program, unliks the othsr CCUS utility 
programs, ie not written in COBOL. Rather, it ie a Syetem/360 
BAL program that operatss as a free-standing program. 

The program accepte any COBOL sourcs program or the Population 
File as input, togethsr with tiuo control cards specifying the 
sourcs and target character codes. Output of the program ie the 
convsrtsd program or Population Fils. 

3.4.1 Preparation of Input 

Control carde requirsd by ths program are: 

1. SOURCE card: 

a. Columne 1 - 6 = SOURCE, 

b. Columns 7 - 9 = the addrses of the input device; 
i.8., 180, OOC, stc. 

c. Columns 10 - 11 = If 2540 is ueed, 01 = Data (tlods 1, 
02 = Data (Ttods 2. If tape ie ueed, ths mode eetting 
ehouin in ths chart bsloui should bs ussd. 

d. Columns 12 - 80 = Characters to be tranelated. 

2. OBJECT card: 

a. Columne 1 - 6 = OBJECT, 

b. Columns 7 - 9 = the address of the output dsvice; 
i.e., 180, ODD, etc. 

c. Columne 10 - 11 = If 2540 is used, 01 = Data lYIode 1, 
02 = Data ITlode 2. If tape ie ueed, ths mode setting 
ehouin in the chart bsloui should be ueed. For all othsr 
eituatione, leave these columne blank. 
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d. Columns 12-80 = Characters to uihich SOURCE character are 
to be translated. Each 0B3ECT character should appear in 
the same column as that SOURCE character from uihich the 
translation is to be made. 



Col 
10-11 


Bytes 
per Inch 


Parity 


Translate 
Feature 


Convert 
Feature 


10 


200 


odd 


off 


on 


20 


200 


euen 


off 


off 


28 


200 


euen 


on 


off 


30 


200 


odd 


off 


off 


38 


200 


odd 


on 


off 


50 


556 


odd 


off 


on 


60 


556 


euen 


off 


off 


68 


556 


euen 


on 


off 


70 


556 


odd 


off 


off 


78 


556 


odd 


on 


off 


90 


800 


odd 


off 


on 


AO 


800 


euen 


off 


off 


A8 


800 


euen 


on 


off 


BO 


800 


odd 


off 


off 


B8 


800 


odd 


on 


off 


CO 
C8 


800 
1600 

800 


single-density 9-track tapes only 
dual-density 9-track tapes only 

dual-density 9-track tapes only 



A set of sample control cards is found in Appendix H. 



The follouiing rules must be observed uihen determining device 
assignments. 

1 . If either the input or output device is a card reader that 
uiill be reading or punching other than EBCDIC punches, that 
device must be a 2540 uiith the data mode 2 option. 

2. IDhen either input or output is aesigned to tape, only 
EBCDIC punches may be ueed in either control card. 

3. Remember that, on tape, the objective is a particular bit 
configuration; the punches in the control cards should be 
selected luith this in mind. 
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3.5 TEST PROGRAin OUTPUT ANALYSIS 

The ALL parameter of the HDUJR card conditions a test program 
to display the actual and pre-determined result of every test 
in a test program. If an actual and a pre-determined result 
differ (as determined by a character-by-character comparison) 
the actual result is underlined. The absence of the ALL 
parameter results in the display of the actual and pre-determined 
results of only those tests where a difference is found. 

Test results are displayed across the output page. Four lines 
appear: 

1. The top line contains the test serial number (e.g., 1N026, 
1TH02). 

2. The second line contains the pre-determined result. 

3. The third line contains the actual result. 

4. The fourth line contains dashee that underline those cases 
wherein the pre-determined and actual results do not 
agree. 

If a failure is noted in the output, it is necessary to trace the 
error to its cause in order to determine whether or not the 
failure represents a violation of the USA Standard COBOL. The 
procedure to follow in gathering information about a particular 
test ie as follows: 

1* Note the teet serial number which appeare in the first line 
of the test result printout. 

2. Look up that test in the test directory found in Appendix D. 
This will indicate what the purpose of the test is and how the 
test results are related to that purpose. 
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3# If more detailed information is desired, look up the test 
in the test descriptions found in Part II of the Detailed 
Program Specification (Reference 4). 

4. Look up the test on the listing produced by the PFIYl. This 
ie the ultimate source of information on the procedures and 
design of the teet# 

Once the source of the difference ie isolated, it must be con- 
sidered in light of the purpose of the test. Ae an example, 
suppoee a sort test indicatee a eingle error, as follows: 

1 S T 9 ^ 

111111111* 
111011111* 



The preeence of dashes in the last row indicates an error some- 
where in the results. Comparing the middle two rowe shows the 
error to be in the fourth poeition. The first row identifies 
the teet as 1ST09. 

Looking at the test directory under 15T09, we see that each 
position represents the most recently changed sort key field 
on coneecutiue sorted record e and that the fourth record in 
the aecending sequence expected hae, as its most recently 
changed field, the eighth key with a generated value of -14. 

Going to the test listing for 15T09, we note that the eighth 
key is computational, unsigned. Thus, the expected result 
that was checked for was +14, 

This indicates that an uneigned computational item which 
originally had been aeeigned to a value of -14 had failed 
when used ae a eort key. 
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The error must nouj be correlated to a feature. Check ouer other 
results to see if any other failures are related to this one# If 
so, try to determine the trouble by isolating the moet common 
cause# Check all diagnostics produced at compilation and at exe- 
cution, and the manufacturer 'e literature for restrictions, special 
implementatione or known problems. 

If the error can be correlated to a feature other than those 
being tested in the failing test, the test should be modified to 
eliminate it: 

1. Determine the change required in order to bypase the problem 
ujithout invalidating the purpose of the test. 

2. Prepare the change using SPIYl change techniques. The program 
number in which the test appears can be found in the test 
header on the PFIYl list. The sequence numbers found there for 
the test source cards ar« the same as those found on the test 
program listing. 

3. Using the SPIYl make the changes to the test program ( not to 
the tests themeelues) and re-execute. In the case of data 
items, the item to be changed may appear under a different 
test serial number because of the elimination feature of the 
Selector Program (see 2.3.3 and reference 4). 

Ae a continuation of the earlier example, all test results are 
checked for failure related to sort keys, computational or 
unsigned fields. Several failures of unsigned computational 
fields might be found in tests of another module indicating a pro- 
blem ujith such fielde. If a diagnostic meseage or a manufacturer's 
manual ujarns of computational iteme being considered as always 
signed, it could be aesumed that this is the cause of the failure. 

Since the purpose of test 1ST09 is to teet certain RETURN etate- 
ment situations, the uee of this particular key is incidental 
and thue the test ujould still be valid ujithout it. 
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Sev/eral changes might be made to eliminate the error 
from the test but perhaps causing the expected 
value check to be changed from +14 to -14 would be 
the easiest. 

In the teet program listing for 1ST09, card 851180 
(Columns 1 - 6) is found to contain the 14 ueed in the 
existing check. A replacement card 851180 with -14 is 
prepared and used in an SPM run to update test program 38. 
The SPIYl output provides a record of the change. 
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section iv 
operating instructions 

4.1 cohpilatidn and execution 

Because the ECUS is intended to be usable uith any COBOL 
compiler, it is readily apparent that it must operate in 
any of a large number of environments. For this reason, 
the compilation and execution of the test programs are 
discussed here in general terms, rather than in relation 
to any particular implementation. 

Several items uill be useful to the operator in preparing 
to run the EEVS: 

1. The implementor* s COBOL manual, 

2. The appropriate operating system manual, (a EOBOL 
related abstract may be contained in the EOBOL 
manual) , 

3. A Printout of test program(s) from Selector run 
(or Source Program flaintenance) . 

The paragraphs that follou outline a series of steps that 
must be taken to prepare for compilation and execution. 

Determine if the implementation being tested uill allou stacked 
input^i.e., multiple programs not separated by end-of-file marks. 
If not, the user must take one of the following approaches: 

1 . Ehoose tests such that only one program uill be 
produced by the Selector program. 

2. Punch out the Selector output file and manually 
separate the programs, using columns 73-74. 

3. Write a program to copy the Selector output file 
and insert the appropriate end-of-file marks between 
programs. 

Determine the method of assigning "implemen tor-name" (in the 
ASSIGN clause of the SELEET sentence) to a physical device. 
This is often done at execution time uith e type-in or control 
card, although in some systems it may be specified either 
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explicitly or implicitly in the ASSIGN clause itself. If 
neither Sequential nor Random Access is being tested, the user 
need only determine the aseignment for the devices to be used 
for printing (often a printer, although eometimes a file that 
is printed in a separate operation), and for ACCEPT and DISPLAY 
statements (these may not require explicit assignment). 

If Sequential without maes storage is being tested, the tape and 
printed "implementor-namee" must be assigned to their appropriate 
devices. If either Sequential maes etorage operations or the 
Random Access moduls is bsing tested, thg mass storage "implsmsntor- 
namee" muet also be appropriately aeeigned. 

Determine any unusual control carde that may be necessary. For 
example, a machine that hae no hardware ewitches may simulate 
them uia control information. 

If Segmentation is being tested, determine whether any control 
cards are needed or affected thereby. 

If Sort teste are being tested, extra control information may be 
needed by the sort program invoked by the Sort statement. 

Some determination must aleo be made about what is necessary 
to invoke execution of both the compiler and the resulting object 
program. Implementations differ coneiderably in thie area, ranging 
from eimple to very complex. 

Although the preferred procedure is to eet up the job as a "compile 
and go" operation, as nearly self-contained as possible, an 
occaeional implementation may not allow thie approach. 

There are a number of areas in which machine dependent problems 
may manifest themeelues. For example, the bit configuration 
generated by arithmetic on eigned fields is sometimes not repre- 
sented by a printer graphic. Uhen thie occurs, extra care is 
necessary to insure that proper interpretation ie made. 
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Some machines have rather specialized input media such as paper 
tape or magnetic tape only. lUhen this occurs, some means of 
translation from punched card format must be devised. It should 
be remembered, houieuer, that a machine of a particular make and 
model can usually be found eomeiuhere with provision for punched 
card format input. 

A situation sometimes arises in which input-output software 
limitations cause problems. For example , compilers occasionally 
limit references to any given FD to only one mode (i.e., INPUT, 
OUTPUT, etc.). This is a severe limitation that renders the 
compiler non-standard. To run Sequential and/or Random Access 
module tests with this restriction, the user must run on an 
individual test basis using the "DROP" facility in the Selector 
Program and possibly the Source Program (Ylaintenance Program 
to construct the runs. 

Another non-standard restriction is more easily circumvented 
in the test runs but could be quite cumbersome in a production 
environment. This is the caee where the "implementor-name" 
in the ASSIGN clause of the SELECT sentence is restricted to 
rep reeen ting a unique physical device. (e.g., tape unit 1) . 
To run the tests in this environment, a separate physical 
device is required for every FD in a given run and the "implemen tor- 
names" inserted by the Selector have to be changed using the 
Source Program lYlaintenance Program. 

In the sections that follow, some specified considerations such 
as input-output assignments and f ile-paeeing requirements, are 
discussed for each program in the CCUS. 
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4.2 POPULATION FILE MAINTENANCE PROGRAM 

4.2.1 Input-Output Assignments 

The folloiuing table defines I/O requirements for this program: 

Printer 
Input 
File Name Output Usage 

P0P-FILE i Old Population File master. 

TAPE-iJUT New Population File master. 

C^NTR^JL-CARD i Update cards. 

PRINTER-0UT o Listing. 

NOTE: indicates alpha in file-names. 



-49- 



4.3 SELECTOR PROGRAITI 

4.3.1 Input-Output Assignments 

The Selector consists of three COBOL programs uihich must be inter- 
faced uiith tujo sorts. The sorts, either system sorts or simple 
COBOL sort statements of the USING, GIl/ING type, must be prov/ided 
as separate jobs or job steps. File passing must also be provided 
for between the execution of these phases. 



A typical job floui using a system control-oard type of sort facility 
is shown beloui. 




SELECTOR 
CONTROL CARD3 



SELECTOR 
PHASE 1 




SORT 
I 



SELECTOR 
PHASE II 




SORT 

II 



SELECTOR 
PHASE III 
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Filee 


used by the 1 


Selectc 


)r are: 


printer 

input 

output 


file 


rscord 


PHASE 


Name on chi 


art 


FD Name 


scratch 


paeeing 


size 


Sel I 


Population 


File 


P/)P-FILE 


i 


not paseed 


80 


Sel I 


Selector Control 


C^NTRZiL-CARD- 


i 


not passed 


80 




File 




FILE 








Sel I 


TinPOUT 




TEmP-/)UT-FILE 


s 


not passed 


80 


Sel I 


SEL10UT 




SEL-;dUT 





passed 


117 


Sel I 






PRINTER-;EJUT 


D 






Sort I 


SEL10UT 






i 


not passed 


117 


Sort I 


SRT10UT 









passed 


117 


Sel II 


SRT10UT 




SEL-INS-FILE 


i 


not passed 


117 


SbI II 


SEL20UT 




SEL-jeiUT-FILE 





passed 


88 


Sel II 






PRINTER-IJUT 


D 






Sort II 


SEL20UT 






i 


not passed 


88 


Sort II 


SRT20UT 









passed 


88 


Sel III 


SRT20UT 




SEL-INS-FILE 


i 


not passed 


88 


Sel III 


TESTFIL 




SEL-0UT-FILE 





passed 


80 


SbI III 


TPflPOUT 




SEL-TIYIP-FILE 


s 


not passed 


88 


Sel 






PRINTER-^UT 


P 







All messages are placed on PRINTER-OUT. ITlessages include certain error 
checking plus sequence checking. In the ev/ent of an error in the sequence 
of records coming from a sorting step, the selector requests on the 
printer that the eort be performed again and then terminates the phase . 
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A . 3 . 2 Sort Control Fields 

ThB Selector appends keys to the front of the records to bp sorted, 
and arranges the key fields such that the entire key may be used 
as a single key for simplicity. The relative sequence of records 
uiith like keys is unimportant and no assunptions are made by the 
Selector based upon such sequences- Since records are not modified 
during sorts, input record counts should equal output record count..'. 



Sort I 





(Ylajor key 


1-2 


Alphanumeric 


Ascending 




Inter key 


3-32 


II 


If 




(Ylinor key 


33-37 


II 


It 




(body) 


38-117 






Sort 


II 










(Ylajor key 


1-2 


Alphanumeric 


Ascending 




(Tflinor key 


3-8 


II 


It 




(body) 


9-88 







-52- 



4.4 



SOURCE PROGRAM MAINTENANCE PROGRAIYl 



4.4.1 Input-Output Assignments 

SPIYl is a single phase program Uihose purpose is to permit updating 
a test program file by means of a maintenance file in order to form 
a neui test program file. 

The operator must verify the control card set up for the maintenance 
file and for the compile and execution (or just execution if pre- 
viously compiled) of SPIYl itself. The source program for SPfYl is 
obtained by use of the Selector Program. 



A typical job flow is: 




c 



Tost 

Program 
Changes 



The table that follows defines the l/O requirerpents : 

printer 

input 

FD Name output 



Name on chart 



Test-Program Source 
Test-Program Changes 



Revised Test Program 
Source 



Record 
Size 



SI^URCE-FILE i 

lYlAINT-FILE i 



jrfUT-FILE 
PRINT-FILE 



o 
P 



80 
80 

80 



Notes 



(Ylay be card 
reader, tapo 
or disk. 
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4.4.2 Preparation of Test Program Change Deck 

System control cards may be included to provide an end-of-f ile 
for this deck. The deck may be pre-placed on a tape or disk filn 
or it may be read from a card reader. 

If the END (column 7-9) card is used as the last card in the change deck, 
no attempt uiill be made to read beyond that card. 

The order of the deck is sequence number (column 1-6) uiithin 
program-number (column 73-74), with these exceptions: 

1. OPTION (column 7-12) cards may appear at the front of the deck. 

2. END (column 7-12) card may appear at the end of the deck and serves 

the same function as an end-of-file. 

3. Change cards may be blank in columns 1-6 if they folloui a 
change or a DELETE card which has a value in column 1-6. 
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4.5 CHARACTER CODE CONVERSION PROGRAIYl (Sec. 3.4) 

The CCVS Character Code Conv/ersion program is an IBdfl System 
360 BAL program and may be run on any Sy3tem/360 with a 
console typewriter with unit address OIF, a card reader with 
unit address OOC, and the additional l/O devices needed by the 
user. 

1. Pl3ce object deck follouied by the "SOURCE" and "OBJECT" 
control cards, follouied by the input deck (if any) in the 
card reader hopper. 

2. Ready any other devices to be used. 

3. Press LOAD. An END OF JOB message mill be typed out when 
the run is completed. 

4. l/O errors and control card errors will be typed out in the 
following format: 

I/O ERROR ddd STATUS aaaa SENSE bbbb 
UiHERE: ddd = device address 
aaaa = status bytes 
bbbb = sense bytes 
INTERVENTION REQUIRED ddd 
JOB CANCELED - PERMANENT l/O ERROR ddd 
JOB CANCELED - CONTROL CARD ERROR cc 
UIHERE: cc = error code 

CODE ERROR 

10 CC1-6 do not contain "SOURCE" 

or "OBJECT" 
20 CC7-11 do not contain valid hex 

characters (0-9, A-F) 
30 CC10-1 1 do not contain a legal dat.a 

mode 
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4.6 TEST PROGRAWS 

The Selector program is capable of generating a number of 
test programs. The exact number generated for any particular 
run depends on the content of the TEST card. A epecific test 
program, in turn, may or may not contain the teste for a 
particular module. Thus, each test program preeente ite 
oum set of operational probleme, but the number of these to 
be reeolued during a given teet eeseion is variable. 

All teet programe utilize the output device identified ae the 
PRINTER in the environmental data. Other devices used depend 
on the exact content of the program. In most caeee, the 
control information required by a particular implementation 
can be obtained from the source listing of the test program. 
Some unueual problems are discussed beloui, by program 
number. 
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^ . G • 1 Prugram 10 



PrograiVi TO contains, St most, tests of: NUC, TBI, SEQ, RAC, 
2SRT, and IRPW (except 1 RWOI ) . 

SEQ and RAC present no particular problems. 2SRT interfaces 
through the SORT verb mith the implementor *3 generalized 
sort program. This interface may cause additional control 
information requirements: 

1, Some control systems require special information on 
files utilized by the USING and GIVING options of the 
SORT. The fol lowing file-names describe files asso- 
ciated mith one of these tmo options: 

FILE-NA[inE-USING-2SRT-1 
FILE-NAmE-USING-2SRT-3 
FILE-NA[inE-GIVING-2SRT-4 

2. Sort uiork files may not necessarily be ASSIGNed in the 
Environment Division, but rather, may have implicit 
assignments that require that control information be 
submitted for prescribed device-names • This mill 
usually be mentioned in the implementor 's COBOL manual . 

RPUJ produces output that may have to be printed off-lino. The 
exact format of tapes written under control of a particular 
implementation 's Report lUriter feature must be determined from 
the COBOL manual. Of particular interest are: (l) record 
length, (2) block length, (3) relative position and meaning of 
the printer carriage control symbols used by Report UJriter, and 
(4) recording mode of the report tapes. 

LIB presents a special problem because the input format of 
entries to the implementor 's "COPY" library and the methods for 
creating and maintaining such a library are not specified in 
the USA Standard COBOL. 
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Library LMilries are carried in the Populoticn F'ile in proyrDfii 5[J 
and can be acquired for a particular implenientation by specifying 
TEST DLID. Each entry is preceeded by a header thrj L contains the 
name by which the entry is referred to by the COPY statement in the 
test program. This header is merely for information and is not for 
entry in the library. 

The library entries must be placed in the "COPY" library in the 
format and using the method of the implementation in question . 
Both items of information can usually be found in the COBOL manual. 

4.6.2. Program 11 

Program 11 contains, at most, tests of ISEiQ (15Q22), 

and 2R[*IU. Tho general considerations discussed in program 

ID apply to program 11 as well. 

2RIU03 tests the CODE clause of the HD by interspersing three repor'.s 
on a single file (riLE"NAr/lE-REP0RT-2F^PlU-3) . The COBOL Report Writer 
assigns a unique code to records of each of the three reports. Pre- 
sumably , the im piemen tor supplies a utility program that is able to 
separate the file at print time. If such a program is not availablo, 
the tape can be dumped for v/isual inspection. 

4.6.3 Programs 12-14 

Programs 12-14 contain tests for 5EG. These tests haue no ex[)licit 
Inpt.it-Output requireme-nts . Some implementations fnay reqij.i iP 
additional control information because one or more oL)ject prtjgi'ani 
segments reside on an external device . Because it is impofisible 
to predict houj many segments will be forced onto external storage, 
(if any), this information will have to be found in the source 
program listing , in a procedure map or similar display . 

4.6.4 Programs 15-18 

Programs 15-18 contain the library tests (except 1LB04 and 1LB06). 
The OLIB library entries must have been placed in the "COPY" library 
pr J or to compiling programs 1 5-1 G . 



4.6.5 Program 19 

Program 19 contains the tests 1N314, CURRENCY SIGN and 1N315, 
DECiniAL POINT. Neither test requires any control information. 

Program 20 

Program 20 tests DISPLAY tiiithout the UPON option, then ACCEPT 
Uiithout the FROIYl option, folloiued by ACCEPT. . .FROIYl, then DISPLAY 
. . .UPON. The devices addressed by these statements may have to 
appear in an entry on an operating system control card. 

The DISPLAY statement of 1N304 outputs the string 

AD YZ+- >< =S , ; . ( )/>f01 9 

on the DISPLAY devicG. If this device is visible to the oporator , 
this display will indicate that ACCEPT will immediately follow. 

The ACCEPT statement of 1N305 requires as input the character 
string: 

ABCDE XYZ012 9 + - * 

with no intervening spaces. If the ACCEPT device is the operator 's 
console, the operator must key in this string at the appropriate 
time. Otherwise, the string must be entered on the media used 
by the ACCEPT device (card-reader, paper-tape reader, etc.). 

The ACCEPT statement of 2N050 (which immediately follows the ACCEPT 
of 1N305) requires as input the character string. 
123456709* 

The DISPLAY from 2N051 produces the character string: 
2N051 ABCDEFGH I D01 23456789 

The final DISPLAY from 2N052 produces the character string: 

2N052 -AB...YZ +- ><=S,;.()/>f 01 9 

2NG52 -AB...YZ + - = S ,;:()/ ^ 9A...Z 4 

=$,;.()/ ^ 0...9 

Programs 21 and 22 

Programs 21 and 22 test Declarative LABEL PROCEDURES but present 

no problems. 
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^ • ^^ • ^ Pi'*^^OJ-'^f'i^ ZU-4 A 

Programs 3CJ-4/t each contain one test of a 15RT foaturG. The 
individual programs generally alternate in function betueGn 
creating a file to be sorted, and performing the sort itself 
and verifying the output. As a result, files must be pasised from 
the creating programs to the program that sorts and vGrifien. 
The implemcntor's techniques for identifying files passed betueun 
programs must be used . 

The tablo below indicatcG the files passed by the varioufj procjriimL; : 



FD file name created in Used in Rec Size l\lotur> 

riLE-I\lAflflE:-U51(\!G-3 31 32 (USING) IB 

riLE-(\JAIYlE-USI(\!G-A 32 33 (USING) 18 

FILE-NAIYlE-GI\/ING-4 33 (GIUING) 34 18 

riLE-NAIYlE-GIUING-6 35 (GIUING) 36 27 Alt. device possible 

riLE-NAIYlE-USING-ll 39 40 (USING) 50-100 differing lengths 

riLE-NAmE-USING-11 40 (GIl/ING) 41 50-100 differing lengths 

riLE-NAiyiE-USING-14 42 42 (USING) 33 multi-reel 

FILE-I\lAfYiE-GI\yiNG"14 4 3 44 33 multi-iccl 

^^ *^ *^ Program 45 

Program 45 is identical to 1ST01 except that the SD entry is 
copied from the "COPY" library. 

4.5.0 Program 4G 

Program 46 is identical to 1Rllj02 except that the RD entry is 
copied from the "COPY" library. 

4.6.9 Program 47 

Program 47 contains IRlljOl as it is not compatible lujth other 

programs. 1 he report writer cunsiderations mentioned under 

program 10 apply to program 47 also. 
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APPENDIX I 



DROP CODE LIST 



The COBOL language features that may be dropped during Selection are 
listed under DESCRIPTION. The column headed FPfTl shoms the Func- 
tional Processing ITIodule to u/hich each feature belongs. 



DESCRIPTION . 


FPIKl 


CODE 


LANGUAGE CONCEPTS 






Punctuation Character , 


2 NUC 


lA 


; 


2 NUC 


IB 


Relation Characters > < 


2 NUC 


IC 


8 


2 NUC 


ID 


Condition-names, lev/el-88, Condition-name test 


2 NUC 


IE 


Procedure-names, all numeric 


2 NUC 


IF 


Figurative Constants: plural forms 


2 NUC 


IG 


ALL, except for 'character' 


2 NUC 


IH 


Logical connectives AND OR, Compound conditions 


2 NUC 


13 


Qualification: Data Division 


2 NUC 


IK 


Procedure Division 


2 NUC 


IL 


Indexing feature 


1 TBL 


m 


Reference Format: continuation of luords 






and numeric literals 


2 NUC 


IN 


IDENTIFICATION DIVISION 






DATE-COmPILED 


2 NUC 


2A 



-61- 



DESCRIPTION 


FPIYl 


CODE 


ENWIRONIYIENT DIVISION 






CONFIGURATION SECTION 






SPECIAL-NAIYIES CURRENCY SIGN 


1 NUC 


3A 


DECimiAL-POINT 


1 NUC 


3B 


I-O SECTION 






OPTIONAL Files 


2 SEQ 


3C 


RESERVE clause 


2 SEQ 


33 


SAIYIE AREA 


1 SEQ/RAC 


3N 


RECORD option 


2 SEQ/RAC 


3P 


SORT option 


2 SRT 


3R 


series option 


2 SEQ/RAC/ 


35 



SRT 
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DESCRIPTION 


FPIYl 


CODE 


DATA DIVISION 






Leuel numbers: 66 


2 NUC 


4S 


88 


2 NUC 


IE 


single digit 


2 NUC 


4A 


Abbreviations SYNC, JUST, PIC, COIYIP 


1 NUC 


4B 


BLOCK integer-l TO option 


2 SEQ 


4D 


CODE 


2 RPUJ 


4E 


GROUP INDICATE 


2 RPUJ 


4F 


JUSTIFIED RIGHT 


1 NUC 


4G 


LABEL RECORDS data-name 


2 SEQ/RAC 


4H 


OCCURS 






ASCENDING/DESCENDING 


3 TBL 


43 


INDEXED BY 


1 TBL 


im 


DEPENDING option 


3 TBL 


4L 


PICTURE mixed A, X, 9 in AN Picture 


1 NUC 


4m 


AN edited items 


1 NUC 


4N 


Currency Sign 


1 NUC 


3A 


Decimal Point 


1 NUC 


3B 


RECORD CONTAINS 


1 SEQ/RAC 


4P 


RENAIYIES and leuel 66 


2 NUC 


4S 


SYNCHRONIZED 


1 NUC 


4T 


USAGE COmPUTATIONAL 


1 NUC 


4U 


INDEX 


1 TBL 


im 


VALUE literal series 


2 NUC 


4U 


literal THRU literal 


2 NUC 


411) 


VALUE OF data-name IS data-name 


2 SEQ/RAC 


4X 
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DESCRIPTION 



FPIYl 



CODE 



PROCEDURE DIVISION 

Arithmetic formulas 

Conditions: Relational operators ^ ^ 

Condition-name condition 
Compound^ logical ops. AND, OR 
Abbreviation 1 
2 

Options: ROUNDED 

SIZE ERROR 

Multiple result f ields-Arith. verbs 

CORRESPONDING, ADD and SUBTRACT 

NO REUIIND, OPEN and CLOSE 
Verbs and options 

ACCEPT FRGIYl 

CLOSE UNIT 
LOCK 

CQIYIPUTE 

DISPLAY UPON 

DIVIDE BY option 

REfYlAINDER option 

IF nesting on true path 
nesting on false path 

mOVE CORRESPONDING 

OPEN REVERSED 

PERFORm VARYING 2 and 3 lev/els 



2 NUC 
2 NUC 
2 NUC 
2 NUC 
2 NUC 
2 NUC 
2 NUC 

1 NUC 

1 NUC 

2 NUC 
2 NUC 
2 SEQ 



5A 
IC 
ID 
IE 
13 
5B 
5C 

5E 
5F 
5G 
5H 
5K 



2 NUC 
5EQ/RAC 


faF 

5L 


SEQ/RAC 


5IY1 


2 NUC 


5P 


2 NUC 


6H 


1 NUC 


5R 


2 NUC 


5D 


2 NUC 


55 


2 NUC 


5T 


2 NUC 


5U 


2 SEQ 


5U 


2 NUC 


5UJ 
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DESCRIPTION 


FPiri 


CODE 


READ INTO 


2 SEQ/RAC 


63 


RELEASE 


2 SRT 


5X 


RETURN INTO 


2 SRT 


5Y 


SEARCH (format 1) 


3 TBL 


5* 


ALL (format 2) 


3 TBL 


43 


SEEK 


1 RAC 


6A 


SET 


1 TBL 


im 


USE 






Error procedure 


2 SEQ/RAC 


6B 


Label procedure 


2 SEQ/RAC 


4H 


BEFORE REPORTING 


2 RPUJ 


6C 


UJRITE ADVANCING 






BEFORE 


1 SEQ 


6D 


AFTER 


1 SEQ 


6E 


FROm 


2 SEQ/RAC 


6K 
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APPENDIX II 

TEST - DROP CODE CROSS REFERENCE 

TABLE 1. DROP CODE USAGE IN TESTS 



CODE 


FPin 


USED IN TESTS 








lA 

1 


2NUC 


2ND61 


IB 


2NUC 


2N061 


IC 


2NUC 


2ND43 


ID 


2NUC 


2ND24-2N032,2ND34,2ND35,2ND43,2ND45,2ND46 


IE 


2NUC 


2ND59 


IF 


2NUC 


2N061 


IG 


2NUC 


2ND58 


IH 


2NUC 


2ND58 


13 


2NUC 


2ND39-2ND42 


IK 


2NUC 


2ND58 


IL 


2NUC 


2N053,2N054 


im 


ITBL 


1TH02-1TH04 , 2THD2-2TH04 , 3THD1-3TH04 , 2N022 


IN 


2NUC 


2N008 


2A 


2NUC 


2ND60 


3A 


INUC 


1N314 


3B 


INUC 


1N315 


3C 


2SEQ 


2SQ05 


33 


2SEQ 


2SQD6-2SQD8,2ST04 
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3I\1 


15EQ/RAC 


15Q11,15Q12 


3P 


25EQ/RAC 


25T02 


3R 


25RT 


25T03 


35 


25RT 


25T03 


4B 


INUC 


1N316 


4D 


25EQ/RAC 


2RA01-2RA08,25Q06-25Q08 


4E 


2RPUJ 


2RUJ03 


4F 


2RPUJ 


2RUJ01,2RIU02 


4G 


INUC 


1N313,2RIU03,25T01,2ST03,.25T06,1N316 


4H 


25EQ/RAC 


25Q06,2SQ07,25Q12,25qi5,2RA13,2RA17,2RA18 


43 


3TBL 


3TH02,3TH04 


4L 


3TBL 


3TH03-3TH06 


4Ilfl 


INUC 


1N313 


4I\1 


INUC 


1N004,1N013,1N016,1N017,1N020,1N025,1N020 
1N034,1N037,1N040,1N043,1N047,1N052 


4P 


15EQ/RAC 


15Q09,15Q10,15Q21,1ST06,15T07,15T10-15T12,2SQ11 


45 


2NUC 


2N055,2N057 


4T 


INUC 


1N313,1N316 
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AU 



INUC 



1l\ID77-1l\l080,1l\l105-1l\l10a,1l\l313,1l\l315,1l\l132-1I\l134 
1 Nl 59-1 1\!1 71 , 2ST01 , 2ST02 , 2ST05 



4U 



2t\!UC 



2t\!059 



AUJ 



2I\IUC 



2I\I059 



4X 



5A 



2SLQ/RAC 



2RA13-2RA1G, 251105,25007 



2NUC 



2I\IQ25-2,MQ32,2I\I034-2|\I035 



5B 



2t\!UC 



2t\!045 



5C 



5E 



2I\IUC 



2I\IUC 



INUC 



2I\I045 



2I\I033 



1W056 , 1N057 , 1N070-1I\I073, 1N094 , 1N095 , 1I\I098-1I\I101 , 1N121 , 
ll\ll24,ll\ll25,ll\ll27,ll\ll30,ll\ll31,ll\ll51,lN154,ll\ll5Li,l[\1157, 
1I\I150 , 1I\I151 , 1I\I163 , 1I\I155 , 1I\I157 , 2|\I001 , 2|\)003 , 2I\I0Q5 , 2l\IQ07 , 
2I\I009,2I\I011,2I\I031,2I\I034,2I\I035 



5F 



INUC 



1N058-1N073, 1N080, 1N095-1N101, 1N108, 1N122--1N125, 1N120~ 
lN131,lN152-ir\1155,lN158-lN151,lN154-lN157,2N002,2N003, 
2N005,2N008,2N009,2N015,2N032,2N034,2N037,25T05 



bG 



2NUC 



2N001 , 2N003, 2N007-2N009 



5H 



2rJUC 



2N004-2NQ05,2N010,2NU11,2N013,2NU15 



2se:q 



25q05,2SQ09 



L)L 



ISr.Q/RAC 



15U23,1SQ20 



5rn 



2SEQ/RAC 



2RA1G,2SQ00 
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5P 


2NUC 


2N024-2N032 , 2N034 , 2N035 


5R 


INUC 


1N162-1N167,1N171 


5S 


2NUC 


2N038 


5T 


2NUC 


2N038 


5U 


2NUC 


2N013,2N016 


5U 


2SEQ 


2SQ10 


511) 


2NUC 


2N020,2N022 


5X 


2SRT 


2ST04,2ST06 


5Y 


2SRT 


2ST05,2ST06 


5Z 


3TBL 


3TH01,3TH03 


6A 


IRAC 


1RA02,1RA03,1RA06,1RA07,2RA02,2RA03,2RA06,2RA07,2RA10 
2RA11,2RA14,2RA15 


6B 


2SEQ/RAC 


2SQ12,2RA17 


6C 


2RP11) 


2R11)04,2RIU05 


6D 


ISEQ 


1SQ21,2SQ11 


6E 


ISEQ 


1SQ21,2SQ11 


6F 


2NUC 


2N050 
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6H 


2NUC 


2N051,2N052 


63 


2SEQ/RAC 


2SQ14,2RA10-2RA12,2RA14-2RA16 


6K 


2SEQ/RAC 


2SQ13,2RA09,2RA11,2RA13,2RA15 
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TABLE 2. DROP CODE ASSIGNMENT BY TEST 



TEST ID 


DROP CODES 


TEST ID 


DROP CODES 


1N004 


4N 


H\1069 


5F 


1N013 


4I\1 


H\1070 


5E,5F 


1N016 


4N 


1N071 


5E,5F 


1N017 


4N 


1N072 


5E,5F 


1N020 


4N 


H\1073 


5E,5F 


1N025 


4N 


1N077 


4U 


1N028 


4N 


H\1078 


4U 


1N034 


4N 


1N079 


4U 


1N037 


4N 


iNoao 


4U,5F 


1N040 


4N 


1N094 


5E 


1N043 


4N 


1N095 


5E 


1N047 


4N 


H\1096 


5F 


1N052 


4N 


1N097 


5F 


1N066 


5E 


1N098 


5E,5F 


1N067 


5E 


1N099 


5E,5F 


1N068 


5F 


INIOO 


5E,5F 
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TEST ID 


DROP CODES 


TEST ID 


DROP CODES 


1N101 


5E,5F 


1N133 


4U 


1N105 


4U 


1N134 


4U 


1N106 


4U 


1N151 


5E 


1N107 


4U 


1N152 


5F 


1N108 


4U,5F 


1N153 


5F 


1N121 


5E 


1N154 


5E,5F 


1N122 


5F 


1N155 


5E,5F 


1N123 


5F 


1N157 


5E 


1N124 


5E,5F 


1N158 


5F 


1N125 


5E,5F 


1N159 


5F 


1N127 


5E 


1N160 


5E,5F 


1N128 


5F 


1N161 


5E,5F 


1N129 


5F 


1N162 


5R 


1N130 


5E,5F 


1N163 


5E,5R 


1N131 


5E,5F 


1N164 


5F,5R 


1N132 


4U 


1N165 


5F,5R 
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TEST ID 


DROP CODES 


TEST ID 


DROP CODES 


1N166 


5E,5r,5R 


1SQ12 


3N 


1(\I167 


5E,5F,5R 


1SQ21 


4P,6D,6E 


1(\I169 


4U 


1SQ23 


5L 


1(\I170 


4U 


1SQ28 


5L 


1(\I171 


4U,5R 


1ST06 


4P 


irJ313 


4G,4m,4T,4U 


1ST07 


4P 


1(\I314 


3A 


1ST09 


4U 


1(\I315 


3B 


1ST10 


4P 


1(\I316 


4B,4G,4T,4U 


1ST11 


4P 


1RA02 


6A 


1ST12 


4P 


1RA03 


6A 


1TH02 


m 


1RA06 


6A 


1 TH 03 


1IY1 


1RA07 


6A 


1TH04 


im 


1SQ09 


4P 


2(\I001 


5E,5G 


1SQ10 


4P 


2N002 


5r 


isaii 


3N 


2(\I003 


5E,5F,5G 
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TEST ID 


DROP codce; 


TEEJT ID 


DROP CODES 


2N0n4 


5H 


2Nn26 


1D,5A,5P 


2N005 


5E,5H 


2[\I027 


1D,5A,5P 


2N006 


5F,5H 


2N028 


1D,5A,5P 


2I\1007 


5E , 5G 


2N029 


1D,5A,5P 


2N000 


5F,5G,1N 


2N030 


1D,5A,5P 


2NQQ9 


5E , 5F , 5G 


2N031 


1D,5A,5E,5(J 


2N01[) 


5H 


2N032 


1D,5A,5F,5P 


2N011 


5E,5H 


2N033 


5D 


2N013 


5U 


2N034 


1D,5A,5E,5F,5P 


2N015 


5r,5H 


2N035 


1D,5A,5E,5P 


2l\jni6 


5U 


2N035 


5A 


2I\J02G 


5UJ 


2I\J037 


5F 


2m22 


im,5l!J 


2N038 


5S,5T 


2N02A 


1D,5P 


2N039 


10 


2N025 


1D,5P 


2N040 


10 




2N041 


10 
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TEST ID 


DROP CODES 


TEST ID 


DROP CODES 


2|\J042 


13 


2RA02 


4D,5A 


2N0n3 


1C,1D 


2RA03 


4D,6A 


2I\J045 


1D,5B 


2RA04 


4D 


2N045 


1D,5C 


2RA05 


4D 


2I\J050 


5F 


2RA06 


4D,6A 


2N051 


5H 


2RA07 


40, 6A 


2I\J052 


6H 


2RA08 


4D 


2N053 


1L 


2RA09 


6K 


2I\J054 


1L 


2RA10 


6A,53,6K 


2I\J056 


4S 


2RA11 


5A,53,5K 


2N057 


4S 


2RA12 


5A,53,5K 


2N058 


1G,1H,1K 


2RA13 


4H,4X,6K 


2I\J059 


1E,4V,41U 


2RAU 


4H,4X,6A,63 


2N060 


2A 


2RA15 


4H,4X,6A,63,6K 


2N051 


1A,1B,1F 


2RA16 


4H,4X,5(n,6.1 


2RA01 


4D 


2RA17 


4H,6B 



"75- 



TEST ID 


DROP CODES 


TEST ID 


DROP CODES 




2RA18 


4H 


2Sai5 


4H 




2Ryi01 


4F 


2ST01 


4G,4U 




2RIU02 


4F 


2ST02 


3P,4U 




2RUJ03 


4E/IG 


2ST03 


3R,35,4G 




2RIU0/1 


6C 


2ST04 


33, 5X 




2RUJ05 


6C 


2ST05 


5F,5Y 




2SQ05 


3C 


2ST06 


4G,4U,5X,5Y 




2SQ06 


33,4D,5K,4H,4X 


2TH02 


im 




2SQ07 


3J,4D/iH/tX 


2TH03 


1IY1 




2SQ00 


33,4D,5rfl 


2TH04 


1IY1 




2SQ09 


5K 


3TH01 


im,5Z 




2SQ10 


5U 


3TH02 


m,A3 




2EiQ11 


AP,6D,6E 


3TH03 


1IY1,4L,5;^ 




2SQ12 


4H,6B 


3TH04 


im,43,/iL 




2SCjr.^ 


6K 


37HU5 


4L 




2SQ14 


63 


3TH06 


4L 
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APPENDIX ^11 

INITIATING ENUIRONfnENTAL DATA 

Environmental Data is entered on the form shown in Figure 3. 
The number of each entry is related to a statement found in 
the Environmental Data questionnaire that follows Figure 3. 
The information required is found in the implementor's COBOL 
manual. 

The method for assigning the indicative computer-name is dis- 
cussed in 3,1#1,1.2, 

Figures 4, 5 and 6 are presented as an aid to understanding the 
various environmental input entries and houj they are treated by 
the PFIYl run. Figure 4 shoujs a form similar to that appearing 
in Figure 3, filled out with entries for a fictional implemen- 
tation - the XYZ 8795, model 1. Figure 5 shows the corresponding 
result of processing this information through PFIYl. The relationship 
between the user's entries on Figure 4 and the PFIYl output of 
Figure 5 is expressed on Figure 6. This indicates for each 
output card (ETOnnn), the user's entry from which it came and 
any transformations applied by PFIYl. In the absence of an entry 
in the "Comments" column, the PFIYl output is taken directly from 
the user input. UJhen the user input is blank, PFIYl places an 
'N ' in column 7 of the corresponding output card. 
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E!MVIRnNf\lENT DIUISION. 



FIELD NUiTlBER US INFORniATION 
ON 
ENUIRONHIENTAL DATA CARDS 



(YlAXimUIYl 
NO. OF 
CHARACTERS 
COMFI[;URATION SECTION. IN ENTRY 

FIELD NO. [ 0B3ECT COMPUTER 

1. The implementor*s name for 0B3ECT-C0IY1PUTER. 30 

2. The menory size and unit of measure as specified for 30 
the (TlEniORY SIZE clause. 

3. The memory size of the object computer in characters/bytes, 6 
written as a six digit integer. 

4. The print line size of the on-line printer written as a 3 
three digit integer less than or equal to 120. 120 assumed 

if omitted. 

5. Name specified by implemontor for a switch testable by the 30 
switch-status test. 

6. Name specified by implementor for the switch whose setting 30 
indicates a RERUN is to be taken (use only if 48=Y) 

7. If the "mnemonic-name" option is available for switch- 12 
names enter FIRST-SUIITCH. 

8. If both the ON STATUS and OFF STATUS options are available 1 
enter a M*. If only ON STATUS is available, enter '2'. 

OTHER-NAIYIES 

9. Name specified for the device available using the FROIYl option 30 
of ACCEPT. 

10. Name specified for the device available using the UPON option 30 
of DISPLAY. 

11. If the mnemonic-name option of the ADUANCING feature of lURITE 3 
has been implemented, write the character designated by the 
implementor to denote single space , enclosed in quotes if 
necessary . 

12. UJri te the character denoting double space. 3 

13. UJrJ to tho character denoting page eject. 3 

14. If tho "CODE mnemonic-name" option of tho RD clause is 1 
j rnplnmontcid enter a "Y". 



INPUT-UUTPUT SECTION 

FILE-CONTROL 



15. If the 'integer* option of the ASSIGN clause is available, 
enter a ' Y' . 
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J6. Entries IG through 22 are concerned luith the implomentor- 
names for input-output devices. Of these, the entries for 
the 3 tape units, the card reader and the printer are mandatory 
(the card reader and/or printer may be system-units or any 
sequential device not previously named). Enter the implementor- 
name for the first tape-unit. 

17. Enter the implemen tor-name for the second tape unit. 

18. Enter the implementor-name for thb third tape unit. 

19. Enter the implementor-name for the first of tujo mass- 
storage devices (may be omitted if no device available). 

20. Enter the implementor-name of the second mass-storage device, 
(dflay be omitted if no device available.) 

21. Enter the implementor-name of the card reader. 

22. Enter the implementor-name of the printer. 

23,24. Enter the implementor-name of the Sort units 1 through 4 if the 
25 i 26. SORT feature has been implemented. 

27. For the data-name option of the FILE-LIdfllT clause, enter 
the description (picture and usage) necessary to describe 
data-name in entries 27 and 28. Enter the PICTURE (e.g., 9(5)). 

28. Enter the USAGE of data-name: C for COIYIPUTATIONAL or D for 
DISPLAY. 

29. Enter the literal designated by the implementor as meaning 
the loiuest available mass-storage address for the FILE-LIdfllT 
clause. 

30. Enter the literal that indicates a mass storage address twenty 
records of 100 characters each higher than the address specified 
in 29. 

31. If a second set of FILE-LIdfllTS can be specified in the implementation 
enter a number that luhen added to the literals specified in 29 and 

30 specifies a second available area of this mass-storage file. 

32,33 If a second mass-storage device has been specified (see entry 20), 
& 34 specify the loiuer and upper limits, and increment for it in the 
same luay as specified under 29, 30 and 31. 

35. Enter the PICTURE required in the description of the data-name 
used in the ACTUAL KEY clause (e.g., 9(5)). 

36. Enter the USAGE required in the description of the data-name 
used in the ACTUAL KEY clause: C for COdfiPUTATIONAL or D 
for DISPLAY. 

37. Enter the literal value that luhen placed in the data-name of 
ACTUAL KEY luill indicate the loiuest mass-storage address 
associated luith the first area allocated for the first 
mass-storage device (see 29 and 30). 
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30. 


Lntor the literal value thai uihun placod in the data- 
name of ACTUAL KEY ujill indicate the louiest mass-storage 
address associated vL'ith the second area allocated 






for the first mass-storage device (sec 31). 


6 


39. 


Enter the literal value that uihen placed in the data- 
name of ACTUAL KEY mill indicate the lowest mass- 
storage address associated uiith the first area allocated 






for the second mass-storage device. 


6 


40. 


Enter the literal value that uihcn placed in the data- 
name of ACTUAL KEY luill indicate the lovuest mass- 
storage address associated uiit[i the second area 






allocated for the second mass-storage device (see 34). 


6 


41. 


Enter the literal value that corresponds to an increment 
of one 100 character logical record to the ACTUAL KEY 






of the first mass-storage device. 


6 


42. 


Enter the literal value that corresponds to an 
increment of one 100 character logical record to the 






ACTUAL KEY of the second mass-storage device. 


6 


I-0-CONTROL 




43. 


If an implemcntor-name is available to the RERUN clause, 






enter it here. 


30 




Items 44-48 deal with the versions of the RERUN clause 






available. Enter a 'Y' for each option available: each 






option so marked will be tested. 




44. 


END or REEL 




45. 


END or UNIT 




46. 


integer RECORDS (item 43 above must bo filled in) 




47. 


integer CLOCK-UNITS (item 43 above must be filled in) 




48. 


condition-name (suiitch-name must be entered in 6) 






DATA DIV/ISION 






FILE SECTION 




49. 


Tnter the impjuninntor 'a fixed-name f oi* the file 






iticinlif icatiun to bo usod in tho VALUE OF clause. 


30 


b(l. 


[ nl(U' any literal value that carrenpnndn to Uie 
implomfntor *r, rulos for the content of the file idonti- 






fj c'fition. Innlucio quo to;: if roquirufl. 


lb 


b1. 


[ wiof tho imfUnmontor *B fixed name for an item in tho 
standard jatjol record (other than file idontif i cati on) 
that is inserted into output labels (e.g., Retention- 






period) . 


30 
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52, Enter the literal corresponding to the implementor- 
name entered in 51, 

53# If the data-name option of the UALUE OF clause is 
available, enter the PICTURE required by the 
implementor's file identification. 



15 
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Figure 5, Output Listing of Environmental Data - XYZ-8795 

-86- 



OUTPUT 
CARD NO. 



FROdfl 
ENTRY 



COdfldflENT 



ET0G10 


1 




ET0020 


1 




ET0030 


2 




ET0040 


3 


Entry 3 is diuided by 10 and zero-filled to 6 digits. 


ET0050 


4 


Entry 4 plus 1 . 


ET0060 


4 




ET0070 


5 




ET0080 


7 




ET0090 


6 




ET0100 


8 


If entry 8 = 1 or 2, column 7 is blank, otherujise I\l . 


ET0110 


8 


If entry 8 = 1, column 7 is blank, othermise I\l . 


ET0120 


9 




ET0130 


10 




ET0140 


11 




ET0150 


12 




ET0160 


13 




ET0170 


14 


If 14 = Y, column 7 is blank, othermise I\l . 


ET0180 


15 


If 14 = Y, column 7 is blank, othermise I\l . 


ET0190 


16 




ET02U0 


17 




ETU210 


18 




ET0220 


19 




ET0230 


20 




ETn240 


21 




ET0250 


22 




ET0260 


23 




ET0270 


24 




ET0280 


25 




ET0290 


26 





Figure 6. (l ) 
Relationship Between User Input 
and PFIYl Environmental Output 
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OUTPUT 
CARD NO, 



FROm 
ENTRY 



COIYlOflENT 



ET0300 
ET0310 
ET0320 
ET0330 
ET0340 
ET0350 
ET0360 
ET0370 
ET0380 
ET0390 
ET0400 
ETO^IO 
ET0420 
ET0430 
ET0440 
ET0450 
ET0460 
ET0470 
ET0480 
ET0490 
ET0500 
ET0510 
ET0520 



27, 28 

29 

30 

31 

32 

33 

34 

35, 36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49, 50 

51, 52 

53 



Entry 28 is first letter of Usage- 



Entry 36 is first letter of Usage- 



If entry is a Y, column 7 is blank, otheruiise N, 

If entry is a Y, column 7 is blank, otheruiise N< 

If entry is a Y, column 7 is blank, othenuise N, 

If entry is a Y, column 7 is blank, otheruiise N, 

If entry is a Y, column 7 is blank, otheruiise N- 



Figure 6. (2) 
Relationship Betuieen User Input 
and PFIYl Environmental Output 
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APPENDIX IV 

TEST DIRECTORY 

NUC 1 90 

2 108 

TBL 1 114 

2 115 

3 116 

SEQ 1 117 

2 119 

RAC 1 120 

2 121 

SRT 1 123 

2 125 

RPUJ 1 126 

2 127 

SEG 1 128 

2 130 

LIB 1 131 

2 132 
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leiji ID 

ifgom 


Summary of Tost 

rflDVL CRP-GnOUP-hlOVE-FROftl TO GRP-GROUP- 
m\JL-JQ. 


Brcakdoiun of Prinlod Rcj^aiJ Lo 
RGceivincj ficKlcl H r, prinlf.d. 


iNnn2 


rilGl/E 


GRP-ALPHABETIG TO UJRK-AN-GGG2G. 


RccBiuinrj fiolcJ 


ir> print clI. 


wum 


rnoi/E 


GRP-ALPHAI\IUfilERIC TO UJRK-XI\I-GGG49. 


Recciuiny fiDld 


is printed.. 


^mm 


nr.ovL 


GRP-ALPHA^•U[TlERIC 10 AE-GG01 . 


Receiving field 


is printed. 


1Na05 


(YIOVE 


GRP-NUniERIC TO U1RK-DU-10VG0. 


Receiving field 


j s printed. 


1f\l006 


lyioi/E 


GRP-NUniERIC TO NE-0001. 


Roceiuing field 


iy printed. 


1N0G7 


m\JL ALPHABET-AN-GG026 TO GRP-UIRK- 
AN-GG02G. 


Receiuing fioJd 


is printiKl. 


1I\ILIUU 


rflOl/E ALPHA0ET-AN-0G026 TO lURK-AN- 
0002G. 


RGceiuiny field 


is printed. 


iNOoy 


(YlOl/E 


ALPHABET-AN-G0G26 TG UJRK-XN-00G49. 


Recoiling field 


is printed. 


1I\I01G 


(YlOl/E ALPHAWU[^1ERIC-XI\I-00G49 TO 
GRP-IURK-Xf\]-G0049. 


Recoiling fieJd 


ic printed, 
i fj printed. 


ir\!ori 


(YIOVE 


ALPHAI\IUrflERIC-XN-00049 TO lURK-AN-00026. 


Receiuing field 


1N012 


IKIGUE 


ALPHANG[Y1ERIC-XN-GGG49 TO IURK-XN-GGG49. 


Receiving field 


is printed. 


1N013 


rdOVE 


ALPHANUIlflERIC:-XW-G0G49 TO AE-0001. 


Receiving f icJd 


in printed. 


iNai4 


move 


ALPHAI\IUrflERIC-XN-0G049 TO UIRK-DU-10VG0, 


Receiving field 


is printed. 


ifguiL, 


fnovE 


ALPHANUmERIC-XN-G0049 TO Nr-GG02. 


Receiving field 


ir> printed. 


iNni6 


(YIOVE 


AE-0001 TO 5UP-'JiK-A. 


Receiving f i old 


ifi printf.'d. 


1NU17 


IKIGVE 


AE-0GG1 TO AE-0002. 


Receiving field 


is print ed. 


1N016 


niGVE 


DiaiTS-DU-1GVCG TG GRP-UJRK-DU-1GV00. 


Receiving field 


is printf;d. 


1I\IG19 


movE 


DIGITS-DU-10V0a TG UiRK-XN-00G49. 


Receiving field 


is printed. 


ii\ia2o 


IKIOVE 


DIGITS-DU-10VQ0 TO AE-0002. 


Receiving field 


is printed. 


1N021 


niovE 


DIGITS-DU-IOVDU TO lliRK-DU-10V00. 


Receiving field 


i:^ printed. 


1I\J02?- 


movE 


DIGITS-DU-06V04-S TO NE-OGOI . 


Receiving field 


is print cd. 
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Test ID 


Summary of Teat 


Breakdouin 


of Printed Results 


1N023 


lYlOVE 


NE-0001 TO GRP-lllRK-XN-00049. 


Receiving 


field 


is 


printed. 


1N024 


lYlOVE 


NE-0001 TO UiRK-XN-00049. 


Receiving 


field 


is 


printed . 


1N025 


lYlOVE 


NE-0001 TO AE-C002. 


Receiving 


field 


is 


print ed . 


1N026 


lYlOVE 


ZERO TO GRP-UIRK-DU-IOVOO. 


Receiving 


field 


is 


print ed. 


1N027 


lYlOVE 


ZERO TO lllRK-XN-00049. 


Receiving 


field 


is 


printed. 


1N02B 


lYlOUE 


ZERO TO AE-0002. 


Receiving 


field 


is 


printed. 


1N029 


lYlOVE 


ZERO TO UIRK-DU-IOVOO. 


Receiving 


field 


is 


printed. 


1N030 


lYlOUE 


ZERO TO NE-0001. 


Receiving 


field 


is 


printed. 


1N031 


lYlOUE 


SPACE TO GRP-UIRK-DU-IOUOO. 


Receiving 


field 


is 


printed. 


1N032 


lYlOVE 


SPACE TO lllRK-AN-00026. 


Receiving 


field 


is 


print ed. 


1.N033 


lYlOVE 


SPACE TO lllRK-XN-00049. 


Receiving 


field 


is 


print ed. 


1N034 


lYlOVE 


SPACE TO AE-0002. 


Receiving 


field 


is 


print, ed . 


1N035 


lYlOUE 


HIGH-UALUE TO GRP-UIRK-DU-IOVOO. 


Receiving 


field 


is 


printed. 


1N036 


lYlOUE 


HIGH-UALUE TO UiRK-XN-00049. 


Receiving 


field 


is 


printed . 


1NG37 


lYlOUE 


HIGH-UALUE TO AE-0002. 


Receiving 


field 


is 


printed. 


1N03B 


lYlOUE 


LOUi-UALUE TO GRP-lllRK-DU-1 OUOO. 


Receiving 


field 


is 


printed . 


1N039 


lYlOUE 


LOUJ-UALUE TO lllRK-XN-00049. 


Receiving 


field 


is 


printed . 


1N040 


lYlOUE 


LOUi-UALUE TO AE-0002. 


Receiving 


field 


is 


printed . 


1N041 


lYlOUE 


QUOTE TO GRP-UIRK-DU-IOUOO. 


Receiving 


field 


is 


printed. 


1N04i! 


lYlOUE 


QUOTE TO lllRK-XN-00049. 


Receiving 


field 


is 


printed. 


1N043 


lYlOUE 


QUOTE TO AE-0002. 


Receiving 


field 


is 


printed. 


1N044 


lYlOUE 


"A1B2C3D4E5" TO GRP-UIRK-DU-IOUOO. 


Receiving 


field 


is 


printed. 


1N045 


lYlOUE 


"ABCDEFGHI3K" TO lllRK-AN-00026. 


Receiving 


field 


is 


print. ed . 


1N046 


lYlOUE 


"1A2B3C4D5E6F" TO lllRK-XN-00049. 


Receiving 


field 


is 


printed. 
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Test ID 


Summary of Test 


Breakdomn 


of Printed Results 


1N047 


movE 


"1Z2Y3X4U)5V" TO AE-0002. 


Receiving 


field 


is 


printed. 


in048 


movE 


"9876543210" TO U)RK-DU-1 OVOO. 


Receiving 


field 


is 


printed. 


1N049 


mouE 


"9876543210" TO NE-0002. 


Receiving 


field 


is 


printed. 


1N050 


movE 


0123456789 TO GRP-U)RK-DU-1 OVOO. 


Receiving 


field 


is 


printed. 


1N051 


movE 


0918273645 TO U)RK-XN-00049. 


Receiving 


field 


is 


printed. 


1N052 


movE 


019823 TO AE-0002. 


Receiving 


field 


is 


printed. 


1N053 


movE 


9876543210 TO U)RK-DU-1 OVOO. 


Receiving 


field 


is 


printed. 


1N054 


movE 


00012345 TO NE-0002. 


Receiving 


field 


is 


printed. 


1N055 


movE 


000011.1223 TO NE-0001. 


Receiving 


field 


is 


printed. 
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Test ID 


Summary of Test 


Breakdouin of Printed Results 


1N061 


ADD A180NES-DS-18U00 TO lURK-DS-18\/00. 


Arithmetic result is printed. 


1N062 


ADD A100NES-DS-10U00 A050NES-DS-05\/00 
TO lURK-DS-lOUOO. 


Arithmetic result is printed. 


1N063 


ADD A020NES-DS-02\/00 A100NES-DS-10\/00 
A050NES-DS-05\/00 TO lURK-DS-1 01/00. 


Arithmetic result is printed. 


1N064 


ADD A06THREES-DS-03\/03 A12THREES-DS-06\/06 
GIVING ll)RK-DS-09\/09. 


Arithmetic result is printed. 


1N065 


ADD A050NES-DS-05\/00 A050NES-DS-00\/05 
A12THREES-DS-06\/06 A06THREES-DS-03U03 
GIVING ll)RK-DS-06\/06. 


Arithmetic result is printed. 


1N066 


ADD 55554.5 TO ll)RK-DS-05\/00 ROUNDED. 


Arithmetic result is printed. 


1N067 


ADD A050NES-DS-00\/05 A12THREES-DS-06U06 
A050NES-DS-00\/05 GIVING IURK-DS-05V00 
ROUNDED^ 


Arithmetic result is printed. 


1N068 


ADD -99 TO IURK-DS-02V00 ON SIZE ERROR 
iYlOVE "1" TO ll)RK-XN-00001. 


Arithmetic result is printed; 
the last digit indicates 
©hether SIZE ERROR uiorked 
correctly (1 = correct; 
= incorrect). 


1N069 


ADD A120NES-DS-12V00 ZERO GIVING 
ll)RK-DS-10V00 ON SIZE ERROR WOVE "1" 
TO lURK-XN-0001. 


Arithmetic result is printed; 
the last digit indicates 
whether SIZE ERROR uiorked 
correctly (1 = correct; 
= incorrect). 


1N070 


ADD 33333 A06THREES-DS-03V03 A12THREES- 
DS-06V06 TO ll)RK-DS-05V00 ROUNDED ON SIZE 
ERROR. 


Arithmetic result is printod; 
the last digit indicates 
luhether SIZE ERROR ujorked 
correctly (1 = correct; 
= incorrect). 


1N071 


ADD A12THREES-DS-06V06 333333 A06THREES- 
DS-03V03 TO ll)RK-DS-06V06 ROUNDED ON SIZE 
ERROR fYlOUE "0" TO ll)RK-XN-00001 . 


Arithmetic result is printed; 
the last digit indicates 
whether SIZE ERROR worked 
correctly (1 = correct; 
= incorrect). 
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Test ID 


Summary of Test 


Breakdoain of Printed Results 


1N072 


ADD 33333 A06THREES-DS-03\/03 A12THREES- 
DS-06\/06 GIVING UJRK-DS-OBUOO ROUNDED 
ON SIZE ERROR lYlOl/E "1" TO lURK-XN-00001 . 


Arithmetic result is printed; 
the last digit indicates 
aihether SIZE ERROR aiorked 
correctly (l = correct; 
= incorrect). 


1N073 


ADD A12THREES-DS-06\/06 333333 A06THREES- 
-DS-03\/03 GIVING lURK-DS-06\/06 ROUNDED ON 
SIZE ERROR. 


Arithmetic result is printed; 
the last digit indicates 
ujhether SIZE ERROR ujorked 
correctly (l = correct; 
= incorrect). 


1N074 


ADD A99-DS-02\/00 A030NES-DS-02\/01 
A060NES-DS-03\/03 A08Tll]0S-DS-02\/06 
-1.1111111 +.11111111 A010NE-DS-P0801 
GIVING UJRK-DS-03\/10. 


Arithmetic result is printed. 


1N075 


ADD A010NE-DS-P0801 +.11111111 
-1.1111111 A08T1110S-DS-02\/06 A060NES-DS 
03\/03 A030NES-DS-02\/01 A99-DS-02\/00 
GIVING lURK-DS-03\/10. 


Arithmetic result is printed. 


1N076 


ADD A08TlU0S-DS-02\/06 A99-DS-02\/00 
-1.1111111 A030NES-DS-02\/01 A010NE-DS 
P0801 +.11111111 A060NES-DS-03\/03 
GIVING UJRK-DS-03V10. 


Arithmetic result is printed. 


1N077 


ADD A180NES-DS-18V00 TO IURK-CS-18V00. 


Arithmetic result is printed. 


1N078 


ADD A18CNES-CS-18V00 TO IURK-DS-18V00. 


Arithmetic result is printed. 


1N079 


ADD A99-CS-02V00 TO IURK-CS-02V02. 


Arithmetic result is printed. 


1N080 


ADD A99-CS-02V00 TO IURK-CS-G2V02 ON 
SIZE ERROR fnOVE "V TO UJRK-XN-00001 . 


Arithmetic result is printed; 
the last digit indicates 
ujhether SIZE ERROR ujorked 
correctly (l = correct; 
= incorrect). 
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Test ID 


bummary of Test 


Breakdown of Printed Results 


1N090 


SUBTRACT A180NES-DS-18U00 FROITl UJRK-OS- 

leuoo. 


Arithmetic result is printed. 


1N091 


SUBTRACT A050NES-DS-05\/00 A050NES-DS- 
OOUOB A060NES-DS-03\/03 FROITl UJRK-DS-06\/06. 


Arithmetic result is printed. 


1N092 


SUBTRACT A06THREES-DS-03\/03 FROITl 
A12THREES-DS-06\/06 GIVING UJRK-DS-06\/06. 


Arithmetic result is printed. 


1N093 


SUBTRACT A050NES-DS-05\/00 A050NES-DS-00\/05 
A12THREES-DS-06\/06 A06THREES-DS-03U03 
FROITl ZERO GIVING UJRK-DS-06\/06. 


Arithmetic result is printed. 


1N094 


SUBTRACT A99-DS-02\/00 FROITl UJRK-DS-0201P 
ROUNDED. 


Arithmetic result is printed. 


1N095 


SUBTRACT A050NES-DS-05\/00 -11111 AZERO- 
DS-05\/05 FROITl UJRK-DS-06\/06 GIVING 
UJRK-DS-06U00 ROUNDED. 


Arithmetic result is printed. 


1N096 


SUBTRACT A99-DS-02\/00 FROITl UJRK-DS-02\/00 
ON SIZE ERROR ITIOUE "1" TO UJRK-XN-00001 . 


Arithmetic result is printed; 
the last digit indicates 
ujhether SIZE ERROR ujorked 
correctly (1 - correct, 
= incorrect). 


1N097 


SUBTRACT A120NES-DS-12\/00 FROITl ZERO 
GIVING UJRK-DS-IOUOO ON SIZE ERROR ITIOUE 
"1" TO UJRK-XN-00001. 


Arithmetic result is printed; 
the last digit indicates 
ujhether SIZE ERROR u/orked 
correctly (1 = correct; 
= incorrect). 


1N098 


SUBTRACT 33333 A06THREES-DS-03\/03 
A12THREES-DS-06\/06 FROITl UJRK-DS-OBUOO 
ROUNDED ON SIZE ERROR ITIOUE "1" TO UJRK- 
XN-00001. 


Arithmetic result is primed; 
the last digit indicates 
ujhether SIZE ERROR ujorked 
correctly (1 = correct; 
= incorrect). 


1N099 


SUBTRACT A12THREES-DS-06\/06 333333 
A06THREES-DS-03\/03 FROITl UJRK-DS-06\/06 
ROUNDED ON SIZE ERROR ITIOUE "0" TO 
UJRK-XN-00001. 


Arithmetic result is printed; 
the last digit indicates 
ujhether SIZE ERROR ujorked 
correctly (1 = correct; 
= incorrect). 
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Test ID 


Summary of Test 


Breakdoujn of Printed Results 


1N'(00 


SUBTRACT 33333 A06THREES-DS-03\/03 
A12THREES-DS-06\/06 FROIYl -1000000 UiRK-DS- 
C5\/00 ROUNDED ON SIZE ERROR (Y10\/E "1" TO 
UiRK-XN-00001. 


Arithmetic result is printed; 
the last digit indicates 
whether SIZE ERROR worked 
correctly (1 = correct; 
= incorrect). 


1N101 


SUBTRACT A12THREES-DS-06\/06 333333 
A06THREES-DS-03\y03 -.0000009 FROm 
-.1000000 GIVING UiRK-DS-06\/06 ROUNDED 
ON SIZE ERROR (Y10\/E "0" TO lllRK-XN-00001 . 


Arithmetic result is printed ; 
the last digit indicates 
UJhether SIZE ERROR worked 
correctly (1 = correct; 
= incorrect). 


1N1U2 


SUBTRACT A99-DS-02\y00 A03NES-DS-02\/01 
A060NES-DS-03\y03 A08T\U0S-DS-02\/06 
-1.1111111 +.11111111 A010NE-DS-P0801 
FROIYl -1000.000000 GIVING UiRK-DS-03\/10. 


Arithmetic result is printed. 


1N103 


SUBTRACT A010NE-DS-P0B01 +.11111111 
-1.1111111 A0BTUi0S-DS-02\/06 A060NES-DS 
03\y03 A030NES-DS-02\y01 A99-DS-02\/00 FROIYl 
-1000.000000 GIVING UiRK-DS-03V10. 


Arithmetic result is printed. 


1N104 


SUBTRACT A08TUJ0S-DS-02V06 A99-DS-02V00 
-1.1111111 A030NES-DS-02\/01 A010NE-DS- 
PC801 +.11111111 A060NES-DS-03\/03 FROIYl 
-1000.000000 GIVING UJRK-DS-03V10. 


Arithmetic result is printed. 


1N105 


SUBTRACT A180NES-DS-18V00 FROIYl UJRK-CS- 
18V00. 


Arithmetic result is printed. 


1N1D6 


SUBTRACT A1B0NES-CS-1BV00 FROIYl UiRK-DS- 
1BV00. 


Arithmetic result is printed. 


1N107 


SUBTRACT A99-CS-02V00 FROIYl UiRK-CS-02V02. 


Arithmetic result is printed. 


1N108 


SUBTRACT -99 FROIYl iliRK-CS-02V02 ON SIZE 
ERROR lYlOVE "1" TO liJRK-XN-00001 . 


Arithmetic result is printed ; 
the last digit indicates 
whether SIZE ERROR worked 
correctly (l = correct; 
= incorrect). 

1 
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Test ID 
1N120 


Summary of Test 

mULTIPLY A05THREES-DS-03U03 BY U)RK-DS- 
18U00. 


Breakdoiun of Printed Results 
Arithmetic result is printed. 


1N121 


mULTIPLY 0.4 BY UJRK-DS-05U05 ROUNDED. 


Arithmetic result is printed. 


1N122 


mULTIPLY A12THREES-DS-05U05 BY UJRK-DS- 
10U00 ON SIZE ERROR ITIOUE "1" TO UJRK- 
XN-00001. 


Arithmetic result is printed; 
the last digit indicates 
luhether SIZE ERROR luorked 
correctly (l = correct; 
- incorrect). 


1I\I123 


mULTIPLY AZER0-DS-05U05 ON SIZE ERROR 
mOUE "0" TO UJRK-XN-00001. 


Arithmetic result is printed; 
the last digit indicates 
luhether SIZE ERROR luorked 
correctly (l = correct; 
= incorrect). 


1N124 


lYlULTIPLY 99.5 BY UJRK-DS-02U00 ROUNDED 
ON SIZE ERROR ITIOUE "1" TO U)RK-XN-00001 . 


Arithmetic result is printed; 
the last digit indicates 
luhether SIZE ERROR luorked 
correctly (l = correct; 
= incorrect). 


1N125 


UlULTIPLY 99.4 BY UJRK-DS-02U00 ROUNDED 
ON SIZE ERROR ITIOUE "0" TO UJRK-XN-00001. 


Arithmetic result is printed; 
the last digit indicates 
luhether SIZE ERROR UJorked 
correctly (l = correct; 
= incorrect). 


1N125 


mULTIPLY A05THREES-DS-03U03 BY 
A12THREES-DS-05U05 GIUING UJRK-DS-09U09. 


Arithmetic result- is printed. 


1N127 


mULTIPLY A05THREES-DS-03U03 BY 
A05THREES-DS-03U03 GIUING UJRK-DS-10U00 
ROUNDED. 


Arithmetic result is printed. 

I 
\ 


1N128 


mULTIPLY A050NES-DS-10U00 ON SIZE ERROR 
ITIOUE "1" TO UJRK-XN-00001. 


1 

Arithmetic result is printed ;3 
the last digit indicates jj 
ujhether SIZE ERROR ujorked i 
correctly (1 = correct; , 
= incorrect). : 


1N129 


mULTIPLY A010NES-DS-P0801 BY A120NES- 
DS-12U00 GIUING U)RK-DS-10U00 GN SIZE 
ERROR ITIOUE "0" TO U)RK-XN-00001 . 


Arithmetic result is printed;i 
the last digit indicates 
whether SIZE ERROR ujorked 
correctly (1 = correct; ! 
= incorrect). | 
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Test ID 1 Summary of Test 



1N130 



-1 



(YIULTIPLY 1.5 BY A100NES-DS-10U00 GIVING 
lURK-DS-1 01/00 ROUNDED ON SIZE ERROR 
(YIOVE "1" TO lURK-XN-00001. 



j Breakdouin of Printed Results 

t 

, Arithmetic result is printed; 

t the last digit indicates 

' Uihether SIZE ERROR Uiorked 

I correctly (1 = correct; 

I = incorrect). 



1N131 



1N132 



(YIULTIPLY A010NE-DS-P0801 BY A180NES- 
DS-18\/00 GIVING lJJRK-DS-09\/08 ROUNDED 
ON SIZE ERROR (YIOVE "0" TO lilRK-XN- 
00001. 



(YIULTIPLY AOIONE-CS-GOUOI BY UJRK-DS- 



i 0201P. 



Arithmetic result is printed; 

i the last digit indicates 

, Uihether SIZE ERROR luorked 

j correctly (1 = correct; 

I = incorrect) . 

1 

! 

J Arithmetic results are printed, 



1N133 



1N134 



(YIULTIPLY A010NE-DS-P08G1 BY UJRK-CS- 
18\y00. 

(YIULTIPLY A99-CS-02\y00 BY A01GNE-CS- 
001/01 GIl/ING lURK-CS-02\/02. 



Arithmetic results are printed. 



Arithmetic results are printed, 
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I 

I Test ID 



Summary of Test 



1N151 
1N151 



DIV/IDE Agg-DS-02V/00 INTO IURK-DS-18V/00. 
DIV/IDE 4 INTO IURK-DS-12V/00 ROUNDED. 



1N152 



DIV/IDE 0.1 INTO IURK-DS-01V/00 ON SIZE 
ERROR lYIGV/E "1" TO lURK-XN-00001 . 



Breakdoiun of Printed Resul; s 



Arithmetic result is print od. 
Arithmetic result is printed . 



Arithmetic result is printed; 
I the last digit indicates 
i whether SIZE ERROR worked 
J correctly (1 = correct; 

= incorrect). 



1N153 



DIVIDE A010NE-DS-P0801 INTO IURK-DS-09U00 
ON SIZE ERROR (KIOV/E "0" TO lURK-XN-00001 . 



Arithmetic result is printed; 
the last digit indicates 
whether SIZE ERROR worked 
correctly (1 = correct; 
= incorrect). 



1N154 



DIVIDE AZER0-DS-05U05 INTO IURK-DS01V/00 
ROUNDED ON SIZE ERROR (IflOV/E "1" TO UJRK- 
XN-00001. 



1N155 



DIVIDE A0NES-DS-09V/09 INTO IURK-DS-09V/09 
ROUNDED ON SIZE ERROR lYIOUE "0" TO lURK-XN 
00001. 



Arithmetic result is printed; 
the last digit indicates 
whether SIZE ERROR worked 
correctly (1 = correct ; 
= incorrect). 



-I 



1N156 



! 1N157 



1N158 



DIVIDE -10.9 INTO A02TUJ0S-DS-02U00 
GIVING lURK-DS-OIUOO. 



DIVIDE IURK-DS-03V/10 INTO A010NE-DS-P0801 
GIV/ING IURK-DS-18V/00 ROUNDED. 



Arithmetic result is printed ; 
the last digit indicates 
whether SIZE ERROR worked 
correctly (1 = correct; 
= incorrect). 



Arithmetic result is printed. 



Arithmetic result is printed. 



DIV/IDE AZER0-DS-05V/05 INTO A99-DS-02U00 
GIV/ING IURK-DS-18V/00 ON SIZE ERROR lYIOV/E 
"1" TO lURK-XN-00001. 



1N159 



Arithmetic result is printed; 
the last digit indicates 
whether SIZE ERROR worked 
correctly (1 = correct; 
= incorrect). 



DIV/IDE A0NES-DS-09V/09 INTO IURK-DS-09U09 Arithmetic result is printed, 

GIV/ING IURK-DS-09V/09 ON SIZE ERROR lYIOV/E ! the last digit indicates 



'0" TO lURK-XN-00001. 



whether SIZE ERROR worked 
correctly (l = correct; 
= incorrect). 
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Jiihl ID 



Summary of Test 



Breakdouin of Printed Results 



1N1Qi 



DIUIDE liJHK-DS-n9\/D9 INTO A05DNES-DS-DD\/D5 
GIUING UIRK-D5-a2UlP ROUNDED ON SIZE ERROR 
mOl/E "1" ro UJRK-XN-DDODl. 



Arithmetic reaull. is [irintod ; 
tho last tlic|iL indicaLes 
ujhether SIZE CRRUR Uiorketl 
correctly (1 = correct; 
- incorrect). 



1N1G1 



DIUIDE A02TliJ0S-D5-D2\/D0 INTO AD2Ti;JD5-D5- 
D3\/D2 GIUING UJRK-DS-DIUOD ROUNDED ON SIZE 
ERROR lYiOUE "0" TO UlRK-XN-00001. 



Arithmetic result is printed; 
the last digit indicates 
whether SIZE ERROR worked 
correctly (1 = correct; 
= incorrect). 



1N162 



DIUIDE A02TUJ05-D5-D2\/0D BY -10.9 
GIUING UJRK-DS-OIUDO. 



Arithmetic result is printed, 



1N163 



DIUIDE AD10NE-D5-P08D1 BY UJRK-DS- 03\/lD 
GIUING UJRK-DS-IOUOO ROUNDED. 



Arithaetic result is printed. 



1N164 



DIUIDE A99-D5-D2\/DD BY AZERO-DS-DSUDS 
GIUING UJRK-DS-ieUDD ON SIZE ERROR 
mOUE "1" TO UJRK-XN-OOOOl. 



Arithmetic result is printed ; 
the last digit indicates 
whether SIZE ERROR worked 
correctly (1 - correct; 
= incorrect). 



1N165 



DIl/IDE UiRK-DS-09\/09 BY A0NES-DS-D9\/D9 
GIUING lURK-DS-D9\/09 ON SIZE ERROR 
lYiOUE "0" TO UJRK-XN-DDDDl. 



Arithmetic result is printed; 
the last digit indicates 
whether SIZE ERROR worked 
correctly (1 = correct; 
= incorrect) . 



1N166 



DIUIDE AD5DNES-DS-D0\/05 BY UJRK-DS-D9\/09 
GIUING UJRK-DS-02D1P ROUNDED ON SIZE ERROR 
mOUE "1" TO UJRK-XN-DODDl. 



Arithmetic result is printed ; 
the last digit indicates 
whether SIZE ERROR worked 
correctly (1 - correct; 
= incorrect) . 



1N167 



DIl/IDE A02TlUDS-DS-03\/02 BY A02TIU0S-DS 

D2\/DD GIUING UJRK-DS-DIUDO ROUNDED 

ON SIZE ERROR lYiOUE "0" TO UJRK-XN-DDDDl. 



Arithmetic result is printed; 
the last digit indicates 
whether SIZE ERROR worked 
correctly (1 = correct; 
D - incorrect). 



1N168 



DIl/IDE A99-D&.D21/D0 INTO IURK-DS-D21/DD. 



Arithmetic result is printed, 



1N1G9 



DIl/IDE A99U-DS-D2G1P INTO IURK-CS-D21/G2 . 



Arithmetic result is printed, 



IN17D 



DIl/IDE AOlONE-CS-nOl/Dl INTO A99-CS-021/DD 
GIl/ING IURK-DS-D51/00. 



Arithmetic result is printed, 



1N171 



DIl/IDE A99-CS-021/00 BY AOlONE-CS-DDl/01 

GIl/ING IURK-DS-D51/00. 



Arithmetic result is printed* 
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Test ID 


Summary of Test 


Breakdown of Printed Results 


1N2GJ 


PERFORIYl paragraph-name. 
PERFORIYl section-name. 


Execution sequence indicators 
are printed. 


1N201 


PERFORIYl paragraph-name integer TIIYIES. 
PERFORIYl section-name data-name TIIYIES* 


Execution sequence indicators 
are printed. 


1N2U2 


PERFORIYl paragraph-name THRU paragraph- 
name . 

PERFORIYl section-name THRU section-name. 
PERFORIYl paragraph-name THRU section- 
name . 


Execution sequence indicators, 
are printed. 


1N203 


PERFORIYl paragraph-name THRU paragraph- 
name integer TIIYIES. 

PERFORIYl section-name THRU section-name 
integer TIIYIES. 

PERFORIYl section-name THRU paragraph- 
name integer TIIYIES. 

PERFORIYl paragraph-name THRU section- 
name integer TIIYIES. 


Execution sequence indicators 
are printed. 


1N210 


Tests nested PERFORIYl statements. 


Execution sequence indicators 
are printed. 


1N215 


Tests the use of EXIT. 


Execution sequence indicator'^; 
are printed. 
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Test ID 


Summary of Test 


Breakdouin of Printed Results 








1N230 


EXAIYIINE NDATA-DS-09V09 TALLYING 
UNTIL FIRST 9. 


The value of TALLY is printed. 


1N231 


EXAIYIINE XDATA-XN-G0018 TALLYING ALL "0". 


The value of TALLY is printed. 


1N2Z2 


EXAMINE XDATA-XN-C0018 TALLYING 
LEADING SPACE. 


The value of TALLY is printed. 


1N237 


EXAMINE lliRK-DS-091/09 TALLYING UNTIL 
FIRST ZERO REPLACING BY 9. 


The value of TALLY and the 
examined item are printed. 


1N23B 


EXAMINE lliRK-XN-00018 TALLYING ALL ZERO 
REPLACING BY SPACE. 


The value of TALLY and the 
examined item are printed. 


1I\123Q 


EXAMINE UJRK-XN-00018 TALLYING LEADING 
"0" REPLACING BY "9". 


The value of TALLY and the 
examined item are printed. 


1N242 


EXAMINE liiRK-DS-091/09 REPLACING ALL 
BY 9. 


The value of the examined 
item is printed. 


1N:M3 


EXAMINE lliRK-XN-00018 REPLACING LEADING 


The value of the examined 
item is printed. 


1I\1244 


rXAIYlINE UJRK-XN-D0018 REPLACING UNTIL 
SPACE BY ZERO. 


The value of the examined 
item is printed. 


1I\1245 


EXAMINE liJRK-DS-09\/09 REPLACING FIRST 
8 BY ZERO. 


The value of the examined 
item is printed. 
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Test ID 


Summary of Test 


Breakdoujn of Printed Results 








1N250 


IF AZER0-DS-05U05 IS EQUAL TO ZERO 
mouE "1" to' SUP-UJK-8 (1). 


The result of the comparison 
is printed. 


1N251 


IF SPACE IS EQUAL TO SUP-UJK-A 
lYlOUE "0" TO SUP-UJK-B (1). 


The result of the comparison 
is printed. 


1N252 


IF A180NES-DS-18U00 IS EQUAL TO ONES-XN- 
00018 lYIOUE "1" TO SUP-UJK-B (l). 


The result of the comparison 
is printed. 


1N253 


IF ■niJOS-XN-00002 IS EQUAL TO A99-DS- 
02U00 lYlOUE "0" TO SUP-UJK-B (l). 


The result of the comparison 
is printed. 


1N254 


IF A99-DS-02U00 IS LESS THAN A180NES- 
DS-Q9\/09 mOUE "1" TO SUP-UJK-B (l) ELSE 
lYIOUE "0" TO SUP-UJK-B (2). 


The result of the comparison 
is printed. 


1N255 


IF "11" IS LESS THAN ONES-XN-00002 

lYIOUE "0" TP SUP-UJK-B (l) 

ELSE lYIOUE "1" TO SUP-UJK-B (2). 


The result of the comparison 
is printed. 


1N256 


IF A02-niJ0S-DU-02U00 IS LESS THAN ONES- 
XN-00002 lYIOUE "1" TO SUP-UJK-B (l) 
ELSE lYIOUE "0" TO SUP-UJK-B (2). 


The result of the comprrison 
is printed. 


1N257 


IF TUJOS-XN-00002 IS LESS THAN A02-niJ0S- 
DU-02U00 lYIOUE "0" TO SUP-UJK-B (l) 
ELSE lYIOUE "1" TO SUP-UJK-B (2). 


The result of the comparison 
is printed. 


1N258 


IF A99-DS-02U00 IS GREATER THAN 68.9 
NEXT SENTENCE ELSE lYIOUE "0" TO SUP-UJK-B 
(1). 


The result of the comparison 
is printed. 


1N259 


IF ONES-XN-00002 IS GREATER THAN TTIJOS- 
XN-00002 NEXT SENTENCE ELSE lYIOUE "1" TO 
SUP-UJK-B (1) GO TO TEST-1NUC-259-A. 


The result of the comparison 
is printed. 


1N260 


IF A02"niJ0S-DU-02U00 IS GREATER THAN ONES- 
XN-00002 NEXT SENTENCE ELSE lYIOUE "0" TO 
SUP-UJK-B (1). 


The result of the comparison 
is printed. 


1N261 


IF TlUOS-XN-00002 IS GREATER THAN A02TIU0S- 
DU-021/00 NEXT SENTENCE ELSE lYlOl/E "1" TO 
SUP-UJK-B (1) GO TO TEST-INUC-261-A. 


The result of the comparison 
is printed. 


1N262 


IF ZERO IS NOT EQUAL TO SUP-UJK-A 
lYlOUE "1" TO SUP-UJK-B (l) GO TO TEST- 
1NUC-262-A ELSE NEXT SENTENCE. 


The result of the comparison 
is printed. 
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Test ID 


Summary of Test 


Breakdoain of Printed Results 


1I\I263 


IF A02'nil0S-DU-02U00 IS NOT EQUAL TO A02T1U0S- The result of the comparison 
DS-03\y02 mOUE "0" TO SUP-U)K-B (1) GO TO is printed. 
TEST-1NUC-263-A ELSE NEXT SENTENCE. 


1N264 


IF T\U0S-XN-00002 IS NOT LESS THAN ONES- 
XN-00002 moUE "1" TO SUP-U)K-B (l) GO TO 
TEST-1NUC-264-A ELSE NEXT SENTENCE. 


The result of the comparison 
is printed. 


1I\I265 


IF 0.0000000001 IS NOT LESS THAN AOIONES- 
DS-P0801 mOUE "0" TO SUP-U)K-B (l) GO TO TE 
1NUC-265-A ELSE NEXT SENTENCE. 


The result of the comparison 
3T- is printed. 


•,N265 


IF ONES-XN-00002 IS NOT GREATER THAN TWOS- 
XN-00002 mOUE "1" TO SUP-UJK-B (l) GO TO 
TEST-1NUC-266-A ELSE NEXT SENTENCE. 


The result of the comparison 
is printed. 


1N2G7 


IF A990-DS-0201P IS NOT GREATER THAN 
A99-DS-02\y00m0\yE "0" TO SUP-UJK-B (1) 
GO TO TEST-1NUC-267-A ELSE NEXT SENTENCE. 


The result of the comparison 
is printed. 


1I\I270 


IF ONES-XN-00018 IS NUIYIERIC lYlOUE "1" TO 
SUP-UJK-B (1). 


The result of the test is 
printed. 


1I\I271 


IF A02TUJ0S-DS-03\y02 IS NUIYIERIC ITIOUE "1" 
TO SUP-UJK-B (1). 


The result of the test is 
printed. 


1N272 


IF XDATA-XN-00018 IS NUIYIERIC lYlOUE "0" 
TO SUP-UJK-B 1(1) GO TO TEST-1NUC-272-A. 


The result of the test is 
printed. 


1N273 


IF XDATA-DS-lBUOO-b IS NUIYIERIC lYlOUE "0" 
TO SUP-UJK-B (1) GO TO TEST-1NUC-273-A. 


The result of the test is 
printed. 


1N274 


IF SUP-UJK-A IS NOT NUIYIERIC lYlOUE "1" TO 
SUP-UJK-B (1) GO TO TEST-1NUC-274-A. 


The result of the test is 
printed. 


1N275 


IF XDATA-DS-IBUOO-S IS NOT NUIYIERIC lYlOUE 
"1" TO SUP-UJK-B (1). 


The result of the test is 
printed. 


1N276 


IF SUP-UJK-A IS NOT NUIYIERIC lYlOUE "0" TO 
SUP-UJK-B (1) GO TO TEST-1NUC-277-A. 


The result of the test is 
printed. 
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Test ID 


Summary of Test 


Breakdouin of Printed Results 


1N277 


IF A990-DS-0201P IS NOT NUOflERIC IflOUE 
"0" TO SUP-UJK-B (1) GO TO TEST-lNUC-277- 
A. 


The result of the test is 
printed. 


1N278 


IF YADATA-XN-00010 IS ALPHABETIC ITIOUE 
"1" TO SUP-UJK-B (1). 


The result of the test is 
printed. 


1N279 


IF SUP-UJK-A IS ALPHABETIC OflOUE "X" TO 
SUP-UIK-B (1) GO TO TEST-1NUC-279-A. 


The result of the test is 
printed. 


1N280 


IF XDATA-XN-00018 IS NOT ALPHABETIC ITIOUE 
"1" TO SUP-IUK-B (1). 


The result of the test is 
printed. 


1N281 


IF YADATA-XN-OOOIO IS NOT ALPHABETIC 
mOUE "0" TO SUP-UIK-B (l) GO TO TEST- 
1NUC-281-A. 


The result of the test is 
printed. 


1N282 


IF IFNUm-DU-OlUOO IS NUIflERIC OflOUE "0" 
TO SUP-UJK-B (1) GO TO TEST-lNUC-282-A. 


The result of the test is 
printed. 
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Test ID 


Summary of Test 


Breakdoujn of Printed Results 


1N300 


Tests format 1 of the GO TO 
statement. 


Execution sequence indicators 
are printed. 


1N302 


Tests format 2 of the GO TO statement. 


Execution sequence indicators 
are printed. 


1N3C2 


Tests ALTER/GO TO combination. 


Execution sequence indicators 
are printed. 


1N304 


Tests the DISPLAY statement. 


No printed results except 
the ooirput of the statement 
itself. 


1N305 


Tests the ACCEPT statement. 


The data that luas read is 
printed. 


1N307 


Tests the NOTE statement and NOTE 
paragraph. 


Execution sequence indicators 
are printed. 


1N310 


Tests the use of siuitch-status-names 
in IF statements. 


Execution sequence indicators 
are printed. 


1N311 


Tests non-floating insertion characters. 


Receiving fields are printed. 


1N312 


Tests the use of floating insertion and 
replacement characters. 


Receiving fields are printed. 


1N313 A> 


Tests the use of lev/el numbers 01-10 
REDEFINES, SYNCHRONIZED, JUSTIFIED, 
BLANK, USAGE, and mixed PICTURE of 
A, X, 9. 


Receiving fields are printed. 
Because the operation of the 
SYNC clause makes the size of 
the result indeterminate no 
expected result is printed. 


1N314 


Tests the CURRENCY SIGN clause. 


Receiving fields are printed. 


1N315 


Tests the DECIIYIAL POINT IS COIYIIYIA clause. 


Receiving fields are printed. 


1N316A> 
BJ 


Tests the Data Division abbreviations: 
SYNC, PIC, COITIP, JUST. 


Receiving fields are printed. 
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Test ID 


Summary of Test 


Breakdown of Printtid Results 


1N317 


Tests 30 character data-name and 
procedure-name. 


Correctness indicator is 
printed. 


1N318 


Tests 120 character literal. 


Correctness indicator is 
printed. 
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Test ID 


Summary of Teat. 


Breakdown of Printed Results 


2N001 


ADD AZER0-DS-05\y05 0.5 TO UJRK-DS-OIUOO 
UJRK-DS-05U00 ROUNDED UJRK-DS-06\y06. 


Arithmetic result is printed. 


2N002 


ADD A050NES-DS-05\y00 A99-DS-02\y00 AlBONES- 
DS-09\y09 GIVING UJRK-DS-09\y09 ON SIZE 
ERROR mOUE "0" TO liiRK-XN-00001. 


Arithmetic result is printed; 
the last digit indicates 
whether SIZE ERROR worked 
correctly (1 = correct; 
= incorrect). 


2NG03 


ADD AZER0-DS-05\y05 999 TO UJRK-DS-03\yiO 
UJRK-DS-0201P ROUNDED UJRK-DS-03\y00 ON SIZE 
ERROR mOUE "1" TO UJRK-XN-00001. 


Arithmetic result is printed; 
the last digit indicates 
whether SIZE ERROR worked 
correctly (l = correct; 
= incorrect). 


2I\I004 


ADD CORRESPONDING GRP-FOR-ADD-CORR-l 
TO GRP-FOR-ADD-CORR-R. 


Arithmetic result is printed. 


2N005 


ADD CORRESPONDING GRP-ADD-SUB-CORR 
TO GRP-FOR-ADD-CORR-R ROUNDED. 


Arithmetic result is printed. 


2M006 


ADD CORRESPONDING GRP-SUBTRACT-CORR-3 
TO GRP-FOR-ADD-CORR-R ON SIZE ERROR 
lYlOUE "1" TO UJRK-XN-00001. 


Arithmetic result is printed; 
the last digit indicates 
whether SIZE ERROR worked 
correctly (1 = correct; 
= incorrect). 


2N007 


SUBTRACT AZERO-DS-05 -99.9 FROITl UJRK-DS- 
02U00 UJRK-DS-lB\yOO ROUNDED UJRK-DS-09U09. 


Arithmetic result is printed. 


2N008 


SUBTRACT AZER0-DS-05\y05 -99.9 FROPfl UJRK- 
DS-02U00 UJRK-DS-18\y00 UJRK-DS-09\y09 ON 
SIZE ERROR moUE "0" TO UJRK-XN-00001. 


Arithmetic result is printed; 
the last digit indicates 
whether SIZE ERROR worked 
correctly (l = correct; 
= incorrect). 


2N009 


SUBTRACT AZER0-DS-05U05 -999 FR0[Y1 UJRK- 
DS-03\yiO UJRK-DS-0201P ROUNDED UJRK-DS- 
03\y00 ON SIZE ERROR (TlOUE^l" TO UJRK-XN- 
00001. 


Arithmetic result is printed; 
the last digit indicates 
whether SIZE ERROR worked.- 
correctly (l = correct; 
= incorrect). 
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Test ID 


Summary of Test 


Breakdown of Printed Results 


2I\I010 


SUBTRACT CORRESPONDING GRP-FOR-ADD- 
CORR-1 FROIYl GRP-FOR-ADD-CORR-R. 


Arithmetic result is printed. 


2N011 


SUBTRACT CORRESPONDING GRP-ADD-SUB-CORR 
FROIYl GRP-FOR-ADD-CORR-R ROUNDED. 


Arithmetic result is printod. 


2N013 


fYlOUE CORRESPONDING GRP-IYIOUE-CORR-I TO 
GRP-fYlOUE-CORR-R. 


Arithmetic result is priiit(.!=!. 


2NG15 


SUBTRACT CORRESPONDING GRP-SUBTRACT- 
CORR-3 FROfYl GRP-FOR-ADD-CORR-R ON SIZE 
ERROR lYlOUE "V TO lURK-XN-00001 . 


Arithmetic result is prinlnd; 
the last digit indicates 
whether SIZE ERROR ujorkud 
correctly (1 = correct; 
= incorrect) . 
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Test ID 



2N015 



2I\i017 



2N018 



2N019 



2N020 



2N022 



2NIJ23 



Summary of Test 



lYlOl/E CORRESPONDING GRP-T0-(Y10I/E-C0RR-1 
TO GRP-T0-(Y10\/E-C0RR-R. 



PERFORIYl TEST-2NUC-017-A UNTIL TEST- 
2NUC-C0ND-y9. 



PERFORM TEST-2NUC-018-A l/ARYING liJRK-DS- 
021/00 FROIYl 1 BY 1 UNTIL TEST-2NUC-C0ND-99. 



PERFORIYl TEST2NUC-018-A VARYING UlRK-DS- 
021/00 FROIYl A02T\U0S-DS-02l/00 BY A0271U0S- 
DS-02\/00 UNTIL (lllRK-DS-021/00 + 12) 
= 100. 



Tests PERFORIYl ... l/ARYING to thre.^ levels. 



Tests PERFORIYl ... l/ARYING to three 
levels ; uses index-names. 



Tests ALTER with the series option. 



Breakdoiun of Printed Results 



Receiving fields are printed. 



Execution sequence indicators 
are printed. 



Execution sequence indicators 
are printed. 



Execution sequence indicators 
are printed. 



Execution sequence indicators 
and final values of identifiers 
are printed. 



Execution sequence indicators 
and final values of 
identifiers are printed. 



Execution sequence indicators 
are printed. 
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Test ID 


Summary of Test 


f ■" 
Breakdouin of Printed Results 


2I\I024 


COIYIPUTE lURK-DS-02\/00 = -9. 


Arithmetic result is printed. 


2I\I025 


COIYIPUTE lURK-DS-02\/00 = A99-DS-02\/00. 


Arithmetic result is printed. 


2I\I026 


COIYIPUTE lURK-DS-lSUOO = A180I\IES-DS- 
18\/00 + AISONES-DS-IBUOO. 


Arithmetic result is printed. 


2I\I027 


COIYIPUTE lURK-DS-18\/00 = A18TUJ0S-DS- 
IBVOO - AlBONES-DS-lSUOO. 


Arithmetic result is printed. 


2I\I028 


COMPUTE TALLY = 3 * A02TUJ0S-DU-02\/00. 


Arithrpetic result ic printed. 


2I\I029 


COMPUTE lllRK-DS-05\/00 = A02TIU0S-DU- 
02\/00 / A02TlU0S-DS-03\/02. 


Arithmetic result is printed. 


2I\I030 


COIYIPUTE lURK-DS-05\/00 = 3 ** ATUJO-DS- 
OIV/OO. 


Arithmetic result is printed. 


2I\I031 


COIYIPUTE lURK-DS-02\/00 ROUNDED = A99- 
DS-02\/00 + AZER0-DS-05\/05 - 2.5. 


Arithmetic result is printed. 


2I\I032 


COIYIPUTE lllRK-DS-02\/00 = A99-DS- 
02\/00 + AZER0-DS-05\/05 ON SIZE ERROR 
m\JE. "0" TO UIRK-XN-OOOOI. 


Arithmetic result il; printetJ; 
the last digit indicates 
ujhether SIZE ERROR ujorked 
correctly (l - correct; 
= incorrect). 


2N033 


Test REMAINDER option of DIVIDE. 


Arithmetic result is print a rl. 


2N034 


COMPUTE IURK-DS-0201P ROUNDED = AOBONES 
DS-OBV/OO / 5 ON SIZE ERROR (YIOV/E *'1" 
TO I1IRK-XN-0001 . 


Arithmetic result is printed. 
The last digit indicates 
uihether SIZE ERROR ujorknd 
correctly (l=correct ; 
O=incorrect) . 
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Test ID 


Summsry of Test 


Breakdouin of Printed Results 




2N035 A\ 
B/ 


Using COIYIPUTE, tests a particular 
arithmetic expression both Uiith 
and uiithout parentheses. 


Both results are printed. 




2N036 


Tests a particular arithmetic 
expression both uiith and Uiithout 
parentheses in IF statementa. 


Results of comparison 
are printed. 




2N037 


Tests ADD uiith ON SIZE ERROR 
option in the true and false of 
an IF statement. 


Results of arithmetic and 
comparisons are printed. 




2N038 


Tests IF statements nested on 
true and false paths of an IF 
statement. 


Results of comparisons are 
printed. 




2N039 


Tests an IF statement containing 
a compound condition uiith one OR. 


Results of the comparisons 
are printed. 

Results of the comparisons 
are printed. 




2N040 


Tests an IF statement containing 
a compound condition uiith one AND. 




2N041 


Tests an IF statement containing a 
compound condition uiith mixed ANDs 
and ORs. 


Results of the comparisons 
are printed. 

Results of the comparisons are 
printed. 




1 

2Nn42 Tests an IF statement containing a 
1 compound condition luith mixed ANDe, 
! ORs, and NOTs. 

1 




1 

1 

2Nn43 j Tests IF statements using =,>,<^ 
1 se relstionsl operstors. 


Reeults of the comparisons 
are printed. 




2Nn45 


Teste an IF statement using ab- 
breviation 1 in the condition. 


Results of the comparisons 
are printed. 

Results of the comparisons 
are printed. 




2ri046 
j 


Tests an IF atatement uaing 
abbreviation 2 in the condition. 





-112- 



Test ID 


Summary of Test 


Breakdouin of Printed Results 


2N048 
2N049 


Tests unequal size operands fields 
in a conditional expression 
uihere equality should exist. 


Results of the comparisons are \ 

printed. i 

1 
/ 


Tests unequal size operand fields 
in a conditional expression 
uihere inequality should exist. 

Tests ACCEPT. ..FROIYl... 


Results of the comparisons arn 
printed. 






' 2N050 

! 


Data that uias read is printnd. i 

_..__ .... i 


' 2N051 


Tests DISPLAY literal UPON 
mnemonic-name . 


No printed results except Ihn 
actual output on the device ; 
specified by mnemonic-name. j 


2ND52 

2N053 
2N054 
2N056 A\ 

b/ 


Test DISPLAY mixed-literal- 
and-identif ier-series UPON 
mnemonic-name . 

Tests the operation of quali- 
fications uihere it is required. 


No printed results excnpt thp 1 
actual output on the devicn ' 
specified by mnemonic-name. 

! 
The fields to uihich roferencn 
is made are printed. 


Tests the operation of qualifi- 
cation uihere it is not required. 

Tests the operation of RENAIYIES 
uiithout the THRU option. 


1 

The fields to uihich reference is 
made are printed. 

! 

The fields to uihich referencn is 
made are printed. 


2N057 f\\ 
B/ 

2NU5e 


Tests the operation of RENAIYIES 
uiith the THRU option. 


The fields to uihich referencn is | 
made are printed. ' 


Tests Data Division qualification 
and the plural form of the figura- 
tive constants. 


The fields to uihich rnfornncn iu ' 
made are printed. 

j 


2N059 


Tests level 88 entries uiith the 
series option of the VALUE clause. 


Results of comparisons are 
printed. 


2N060 


Tests the DATE-C0(Y1PILED paragraph. 


No printed results at execution 

time. 


2N061 


Tests punctuation characters (; 
and ,) and all numeric procedure- 
names. 


Correctness indicators are 
printed . 
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Test ID 


Summary of Test 


Breakdouin of Printed Results 


1TH01 


Tests single level subscripting and 
the use of TALLY as a subscript. 


Correctness indicators and 
table elements are printed. 


1TH02 


Tests single lev/el indexing. 


Correctness indicators and 
table elements are printed. 


1TH0 3 


Tests all combinations of operands 
in the SET... TO... statement. 


Occurence numbers are 
printed. 


1TH04 


Tests the use of relation con- 
ditions containing indexes and 
index-data-items. 


Results of the comparison are 
printed. 
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Test ID 


Summary of Test 


Breakdown of Printed Results 


2TH01 


Tests 2 and 3 leuel subscripting. 


Correctness indicators and 
table elements are printed. 


2TH02 


Tests 2 and 3 leuel indexing. 


Correctness indicators and 
table elements are printed. 


2TH03 


Tests the structural variations of 
format 1 of the SET statement that 
are unique to 2TBL. 


Occurence numbers are printed. 


2THD4 


Tests the structural variations of 
format 2 of the SET statement. 


Occurence numbers are printed. 
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Test ID 


Summary of Test 


Breakdoujn of Printed Results 


3TH01 


Tests the structural variations 
of format 1 of the SEARCH state- 
ment. 


Correctnees indicators and table 
elements found are printed. 


3TH02 


Tests the structural variations 
of format 2 of the SEARCH etate- 
ment • 


Correctnees indicators and tablr 
elemente found are printed. 


3TH03 


Same as 3TH01 but uses variable 
length tables. 


Correctness indicators and table 
elements found are printed. 


3TH04 


Same as 3TH02 but uses variable 
length tables. 


Correctness indicators and table 
elemente found are printed. 


3TH05 


Creates a sequential file con- 
taining logical recorde ujhose 
description contains OCCURS 
ujith the DEPENDING option. 


none 


3TH06 


Reads and verifies the file 
created in 3TH05. 


Correctness indicators for every 
record and one for AT END are 
printed . 
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Test ID 


Suminsry of Test 


Breakdo'a;n of fJrintnd F?esu]tr: 




1SG01 


Writes an unblocl^ed sequential tape file 
containing fixed length records. 


no printed results. 


1SL'D2 


Reads the file created in 15Q01. Tests 
operation of the elements necessary for 
an input file; also validates 1SQ01. 


One character for each rccar''l 
read: 1 - input record is 
equal to Working Storage item 
used to WRITE it. ^ input ' 
recorcl not equal. Q --- if [AW 
f nuHf! nremaijirely , ansuinr 
is filled ujith 9's at thai 
point. One character for Al 
END: 1 ~ executed at correct 
time. = not executed. 


15003 


UJritos a blocked sequential tape fi]e 
containing fixed length records. 


no printed results. 


1SQ04 


Reads the file created in 1SQ03. Tests 
operation of the elements necessary for 
an input file; also validates 15Q03. 


Same as 1SQU2. 


1SQ0G 


Writes a blocked, TUlti-reel, sequential 
tape file containing fixed length 
records. 


no printed results. 


isqof. 


Reads the file created in 15Q05. Tests 
the operation of these elements necessa- 
ry for an input file; also validates 

1SQ05. 


Same as 1SQ02. 


1SQ07 


Writes an unblocked sequential tape file 
containing differing length records. 


no printed results. 


1SQ0B 


Reads file created in 15Q07. Tests the 
operation of the elements necessary for 
an input file; also validates 15Q07. 


Same as 1SQ02. 


isnoy 


Writes a blocked sequential tape file 
containing differing length records. 


no printed resu] ts. 


1SQ10 


Reads the file created in 1SQ09. Tests 
the operation of the elements neces- 
sary for an input file; also validates 


Same as 1SQ02. 


15fJ11 


Writes a blacked, multi-reel, sequent- 
ial tape file containing differing 
length records. 


nn printed results. 


1SQ12 


Reads the file created in 1SQ11. Tests 
the operation of the elements necessary 
for an input file; also validates 1SQ11. 


Same as ISQCl?. 
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T(^E;t ID 


SiinKnary ai loi.l 


F3roolulnu;n of Prjnt.uj fuic-ultr. 


1SU13 


liJriteG an unblocked sequential mass 
storage file containing fixed length 
records. 


no printed results. 


1SQ14 


Reads the file created in 1SQ13. Tests 
the operation of the elements necessary 
for an input file; also validates 1SQ13. 


Same as 1SQ02. 


1SQ15 


Reads and updates the file created in 
1SQ13. Tests the operation of the 
elements necessary for an input-output 
file. 


no printed results. 


1SQ15 


Reads the file created in 1SQ13 and 
updated in 1SQ15. Validates 1SQ15. 


Same as 1SQ02. 


iscn? 


Ulrites blocked sequential mass storage 
file containing fixed length records. 


no printed results. 


isme 


Reads the file created in 1SQ17. Tests 
the operation of the elements necessary 
for an input file; also validates 1SCI17. 


Same as 1SQD2. 


1SQ19 


Roads and updates the file created in 
1SQ17. Tests the operation of the 
elements necessary for an input-output 
file. 


no printed results. 


1SQ20 


Reads the file created in 1SQ17 and 
updated in 1SQ19. Validates 1SQ19. 


Same as 1SQ02. 


15Q21 


Ulrites a print file using BEFORE and 
AFTER ADVANCING. 


Each line contains the 
.statement used to write it. 


liirites a blocked, multi-unit, 
sequential mass storage file 
containing fixed length records. 


No printed results. 


1SQ24 


Reads the file created in 1SQ23. 
Tests the operation of the elements 
necessary for an input file; also 
validates 1SQ23. 


Same as 1SQ02. 


1SQ25 


Reads and updates the file created 
1SQ23. Tests the operation of the 
elements necessary for an input- 
output file in a multi-unit file 
environment. 


No printed results. 


1SQ2G 


Reads the file created in 1SQ23 and 
updated in 1SQ25. Validates 1SQ25. 


Same as 1SQ02. 


1SQ27- 
15031 


Tests the five options of RERUN in the 
order shoujn on page B2, items 44-48. 


Execution sequence indicators 
are printed. 
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Tost ID 

2Sn05 


Summary of Tust 


I ' — ■ ■ ' — - ■ 

Dreakdomn of Printed Kesult:; 

One character for each rocorci 
read: 1 = input record is 
equal to uOpKing Slorngo iinin 
used to U/RITE it. = input 
record not equal. 9 = if EOF 
found prematurely, answer is 
filled mith 9's at that point. 
One character for AT END; 1 = 
executed at correct time. - 
not executed. 


Tests the use of an OPTIONAL file. 


25q05 


Creates a lYlULTIPLE FILE TAPE. 


none 


2SQD7 


Reads and verifies the tape 
created in 25Q06. 


Same as 2SQ0e), 


25Q08 


Reads and verifies the last file 
on the tape created in 25Q06. 


Same as 2SQ0r., 


25Q09 


Creates a file for use in 25Q10. 


none 


25Q10 


Tests the use of OPEN Uiith the 
REVERSED option. 


Same as 2SQ05. 


25Q11 


Tests the ADVANCING option of U/RITE 
using data-name and mnemonic name. 


Each line contf.uns the state- 
ment used to mrite it. 


25Q12 


Tests the acceptability and 
operation of the USE 
statement. 


Execution sequence indi- 
cators are printed. 


25Q13 


Creates a file for use in 2SQ14 ari'd 

tests "lURITE...FROftl..." . 


None 


25Q14 


Read and verifies the file created 
in 2SQ13; and tests "READ. .. INTO. . .", 


Same as 2SQ05. 

i 


25Q15 


Tests LABEL RECORDS data-name 
together mith LABEL PROCEDURE 
declaratives. 


One character for each condi- 
tion as folloms: (l) 1 indi- 
cates BEGINNING LABEL on OUT- 
PUT written. (2) 1 indicates 
ENDING LABEL on OUTPUT mrittrn. 
(3) 1 indicates BEGINNING LABLL 
on INPUT verified. (4) 1 indi- 
cates ENDING LABEL on OUTPUT 
verified. 
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Test ID 


Summary of Tost 


Broakdoiun of Printed Rosulits 








IRAQI 


Uirites an unblocked mass storage 
file in random access mode. 


no printed results ^ 


1RA02 


Reads and verifies the file created 
in 1RA01. 


Qne character per record read: 
1 = input record is equal to 
UJorking Storage item used to 
UJRITE it. Q = input record 
not equal. 9 = INVALID KEY 
exit taken on record. 


1RA03 


Reads and updates inpplace the 
file created in 1RA01. 


no printed results. 


1RA04 


Reads and verifies the file created 
in IRAQI and updated in 1RA03. 


Same as 1RAQ2. 


1RA05 


Logically equivalent to IRAQI but 
for blocked records. 


no printed results. 


1RA06 


Logically equivalent to IRAQI but 
for blocked records. 


Same as 1RAQ2. 


1RA07 


Logically equivalent to 1RAQ3 but 
for blocked records. 


no printed results. 


1RA08 


Logically equivalent to 1RAQ4 but 
for blocked records. 


Same as 1RAQ2. 



•120- 



Test ID 



2RAai 



Summary of Test 



2RA02 



Creates a random access file whose 
records are unblocked and of differ- 
ing lengths . Uses data-name option 
of FIIE-LIIYIITS clause, and "TO inte- 
ger" option of BLOCK CONTAINS. 



Reads and v/e rifles the file created 
in ?RA01 . 



Breakdouun of Printed RoG-jltj. 



No printed results , 



One charactot' per record ruarl : 
1 = input rncord is equal to 
UJorking Storngn i itnn uncd 1 o 
UJRITE it, - input rut;ii] il nnl 
equal. D ^ INVALID Kl Y v.x\ I 
taken on record. 



2RAa3 



Reads and updates in place the file 
created in 2RA01 . 



No printed results; . 



2RA04 



Reads and v/e rifles the file created 
in 2RA01 and updated in 2RA03. 



Same as 2RA02, 



2RA05 



2RA0G 



2RA07 



2RA00 



Logically equivalent to 2RA02 but 
for blocked records. 



No printed result^i 



Logically equivalent to 2RAa2 but 
for blocked records. 



Same as 2RA02, 



Logically equivalent to 2RA03 but 
for blocked records. 



No printed renulti 



Logically equivalent to 2RA04 but 
for blocked records. 



Same as 2RA02, 



2RAa9 

thru 
'ZRf\^2 



Logically equivalent to 2RA0 1 thru 
2RA04 except that UJRITE... FRLIYl, 
READ... INTO, literal series option 
of FILE-LIIYilTS clause, STANDARD 
option of LABEL RECORDS clause and 
literal-series option of VALUE OF 
clauses are used. 



Same as 2RA01 thru 2RA04, 



I 



-121- 



Test ID 


Summary of Test 


Breakdouin of Printed Results 


2RA13 


Logically equivalent to 2RA05 


Pame as 2RA05 thru 2RA00. 


thru 


thru 2RA08 except that UIRITE... 




2RA16 


FROni, READ... INTO, data-name 
series option of FILE-LIiYlITS 
clause, data-name series option 
of LABEL RECORDS clause, data- 
name series of VALUE OF clause, 
and in 2RA16 CLOSE .. .UIITH LOCK, 






are used. 




2RA17 


Tests the acceptability and 


Execution sequence indicators 




operation of the USE state- 


are printed. 




ment. 




2RA18 


ToDio LABEL RECORDS data-name 


Rooultr, indicnta n *V for 




in conjunction uiith USE... LABEL 


1. OUTPUT HEADr.R written 




PROCEDURE ON OUTPUT, INPUT, 


2. OUTPUT TRAILER uiritten 




I-O. 


3. INPUT HEADER v/orified 


■ 




4. INPUT TRAILER v/orifind 

5. I-O HEADER v/orifiad 






6. I-O TRAILER v/crificd. 
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Test ID 


Summary of Test 


Breakdown of Printed Results 


ISTOl 


Sorts 6 records created in and 
checks the sequence of the returned 
records in the OUTPUT PROCEDURE. 


aaabbbcccdddeeef f fg* 
Each returned record, represented 
by a through f, has three tests 
made upon it: for content of 
first non-key field; the sort key; 
for the content of the second non- 
key field. The final g is if an 
incorrect number of records are 
returned. 


1ST02 


Services 1ST03 by creating an 
input for it. No sort. 


No printed results. 


1ST03 


The file created by 1ST02 is sorted, 
descending, with the OUTPUT PROCED- 
URE checking sequence on keye and 
contents of non-key areas. Sorted 
records are written onto a FILE- 
NAITIE-USING-A for paseing to 1ST04. 


aabbcc xxyyz* 

Each of the records, represen- 
ted by a through y, has two 
tests made upon it: for the non- 
key area; for the key area. z 
represents 1 for good count, for 
bad count. 


1ST04 


The USING file is the descendingly 
sorted file of 1ST03 which ie 
sorted into ascending order and 
passed to 1ST05. 


No printed resulte. 


1ST05 


Checks sequence of file paeeed from 
ISTOA. 


Same as 1ST03. 


1ST06', 


Sorts with THRU option of INPUT 
PROCEDURE and with the OR option 
of the ASSIGN clause. Depends upon 
blank and zero relative collating 
eequences for SORT and IF being the 
same. GIVING used. 


No printed results. 


1ST07 


Checke eequence of file paeeed from 
1ST06. 


aaabbbccc. . .xxxyyyz* 
Each of the keys is separately 
checked in each of the records. 
Correct count is reflected in z. 


1ST08 


Sort with multiple RELEASE state- 
ments in the INPUT PROCEDURE and 
multiple descending keys. OUTPUT 
PROCEDURE used. 


aaabbbccc. . .xxxyyyz* 
Each of the keys is separately 
checked in each of the records. 
Correct amount is reflected in z. 


1ST09 


Sorte with multiple RETURN state- 
ments in the OUTPUT PROCEDURE, on 
eight types of aecending Keys. 
Uses INPUT PROCEDURE. 


abc. . .xyz* 

Records are checked only for the 
most recently changed Key. The 
record count is reflected in z. 
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Test 10 


Summary of Test 


Brsakdouin of Printsd Results 


ISTIO 


Creates a file of differing 
length records to be passed to 
iSTll. 


No printsd rssults. 


ISTll 


Sorts fils from ISTlO rscords, 
dsscsnding, on tu/o ssriss Ksys. 
Usss USING, GIUING and ths TO 
option of RECORD CONTAINS. 


No printsd rssults. 


1ST12 


Chscks ssqusncs of fils passsd 


aaabbbccc. . .xxxyyyz* 




from ISTll. 


Each rscord is chscksd on thrss 
fislds: a body fisld uniqus to sach 
rscord length; Ksy-1; and Ksy-2, 






Ths rscord count is rsflsctsd in z. 


1ST13 


Prsparss a 3 rssl taps fils 






(using CLOSE REEL) sach contain- 


No printsd rssults. 




ing 26 rscords of 33 charactsrs 






sach to bs passsd to 1ST14. 




1ST14 


Sorts ths multi-rssl fils crsat- 
sd in 1ST13 into dsscsnding 
ssqusncs. Usss USING, GIVING. 
Ths sort Ksy is an 01 slsmsn- 


No printsd rssults. 




tary itsm and is also namsd in 
ths DATA RECORDS clausss of ths 
SO. 




1ST15 


Chscks ssqusncs of ths fils 


abc. . .xyz* 




passsd from 1ST14. 


Ths 78 rscords ars sach chscksd for 
total contsnts ones. Ths rscord 






count is rsflsctsd in z. 
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Test ID 


Summary of Test 


Breakdown of Printed Results 


2ST01 


A double sort in uihich one 
sort (l/P, GIVING) is by 
another (USING O/P) in uihich 
the USING file is the same 
FD-name as is the previous 
GIVING file. 


aabbcc. . .xxyyz* 

Each of the records returned is 
checked first on an indicative non- 
key field and then upon the Key 
field. The total record count is 
reflected in z. 


2ST02 


SAiriE RECORD clause for both 
an SD and tiuo FD files, all 
defined luithin this test. 


aaabbbccc. . .xxxyyyz* 
The recorde (here represented by 
a,b,c, . . .x,y ) are checked: upon a set 
non-key field; on another non-key 
field; and on the eort Key. The 
record count is reflected in z. 


2ST03 


The USE of SAIYIE SORT and 
SAIYIE RECORD clauses and of 
multiple SAIYIE clauees. 
lYIethod is generally the 
same as for the 2ST02 
except for the v/alue of Keys 
generated and expected after 
sorting. 


aaa bbb ccc ... xxx yyy z* 

The records are checked: on an alpha- 
betic justified non-key field; on 
another, similar, non-key field; and 
on the unsigned numeric display Key 
field. The record count is reflected 
in z. 


2ST04 


The FROIYl option of the 
RELEASE statement and the 
RESERVE clause of the SELECT 
statements. Uses INPUT PRO- 
CEDURE and GIVING. After the 
sort, it reads back and 
checke the sorted recorde. 


aaa bbb . . . xxx yyy z* 
The records are checked: on the sort- 
key; onafixed numeric field; and on a 
fixed alphanumeric field. The record 
count is reflected in z. 


2ST05 


Tests the INTO option of 
RETURN along ujith dual re- 
ference capability of the 
returned item. Uses both 
INPUT and OUTPUT PROCEDURE'e. 


aaabbbccc. . .xxxyyyz* 
The recorde are checked : to v/erif y 
that the UJ-S item referenced by the 
INTO clause is identical to the sort 
record returned; and the key is checked 
for expected contents. The record 
count if reflected in z. 


2ST06 


Checks conformity of the 
RELEASE and RETURN state- 
ments to the rules of group 
iriOUES. 


aaaabbbbcccc. . .xxxxyyyyz* 
The records returned (here represented 
as a,b,c,..x,y, ujhere a represents two 
consecutiv/e records, b tuio consecutiv/e 
recorde, etc.) are compared thusly: 

the Sort-record returned v/ersus the liJ-5 
item named in the INTO clause; 

the next Sort-record to be returned 
v/ersus a separate UJ-5 item into uihich 
the first Sort-record has been lYlOUED. 

a sequence check on the record in the 
UJ-S item named in the INTO clauses; and 

a sequence checks on the Sort-record 
itself. 
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Test ID 



Summary of Teet 



Breakdoujn of Printed Results 



IRUIOI 



Teets a minimal Report lljriter 
environment . 



The results are reports . These reportsj 
are validated by comparing them to the | 
"standard" eet of reports which are j 
printed conventionally from the tests. \ 



1RUJ02 



1RUJ03 



Teste the folloujing: 
1) HEADING, FOOTING clausee, 
ujith minimal environment, 2) 
Page Counter with size deter- 
mined by the PICTURE of SOURCE 
item, 3) Houj Line Counter 
effecte PAGE-LIITIIT and NEXT 
GROUP, 4) Report Group, LINE 
NUITIBER ujith PLUS option, 
NEXT GROUP clause, PLUS option, 
and 5) Report Elementary, JUS- 
TIFIED RIGHT: qualification by 
RD, SOURCE IS Ulorking-Storage- 
item. 



The re suite are reports. These reportsj 
are validated by comparing them to the 
"etandard" set of reports which are 
printed conventionally from the tests. 



Teets the following: l) Report 
Elementary; LINE with absolute 
values, PLUS, and NEXT PAGE, 2) 
NEXT GROUP with absolute values 
and NEXT PAGE, 3) LINE, 4) TYPE, 
5) NEXT GROUP with epecial casee 
in other than groups, 6) ability 
to have non-contradicting LINE 
claueee at different levele, 7) 
abbreviations RH and RP and 8) 
JUSTIFIED RIGHT clause. 



The results are reports. These reports 
are validated by comparing them to the 
"standard" set of reports which are 
printed conventionally from the tests . 
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Test ID Summary of Test 



Breakdoiun of printed results 



2RIU01 : Tests Controls luould have a min- 
imal environment consisting of the 
clauses; l) RD; CONTROL IS iden- 
tifier, PAGE LIlYlITs Clauses, 
! FOOTING option of PAGE LIIYIIT, 2) 
i Report Group clauses; CF option of 
j TYPE, 3) Report Elementary clauses; 

GROUP INDICATE AND SUIYl. GROUP 
I INDICATE is tested for page break 
luithout a control break . 



2RIU02 



2RIU03 



2RIU04 



The results are reports. These reports 
are validated by comparing them to the 
"standard" set of reports luhich are 
printed conventionally from the tests. 



T 



Tests the f ollouiing: 
1 ) suppression of items by omit- 
ting their CDLUIYIN clause, 2) Mul- 
tiple DETAIL lines, 3) SUIYl data- 
name series, 4) SUIYl using sum- 
counter-name, 5) SUIYl UPON 
6) SUIYl RESET 7) SUIYl UPON RESET 

8) TERMINATE folloiued by INITIATE, 

9) summary reporting. 



The results are reports. These reports 
are validated by comparing them to the 
"standard" set of reports luhich are 
printed conventionally from the tests. 



UJrites multiple reports on one 
file (series option of REPORTS ARE 
clause), UJITH CODE clause, series 
option of TERMINATE, single and 
multiple character CODE, referenc- 
ing SUIYl counter from Procedure 
Division, multiple GENERATES for 
a given elementary item. A high 
level SUIYl luith no loiu level SUIYl is 
included in this test. 



Tests the USE BEFORE REPORTING 
declarative, to see that a change 
just before GENERATE is reflected 
by the USE declarative. 



J 



The results are reports. These reports 
are validated by comparing them to the 
"standard" set of reports ujhich are 
printed conventionally from the tests. 



The results are reports . These reports j 
are validated by comparing them to the ! 
"standard" set of reports luhich are j 
printed conventionally from the tests. 



2RIU05 



Teste the referencing of an out- 
of-;ine USE BEFORE REPORTING 
declarative by an in-line PERFORM. 
All line references are absolute. 



The results are reports. These reports* 

are validated by comparing them to the . 

"standard" set of reports luhich are | 

printed conventionally from the tests, i 
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Test 10 


Summary of Test 


Breakdoujn of Printed Results 


15G01 


ALTER in 11 section 
GO TO in 00 section 
PERFORIYling 00 from 11 


Execution sequence indicators 
are printed. 


15Ga2 


ALTER in 00 section 
GO TO in 00 section 
PERFORIYling 00 from 00 


Execution sequence indicators 
are printed. 


1SG03 


ALTER in 50 section 
GO TO in 50 section 
PERFORIYling 50 from 49 


Execution sequence indicators 
are printed. 


15G04 


ALTER in 50 
GO TO in 50 
PERFORIYling 50 from 50 


Execution sequence indicators 
are printed. 


iSGOS 


ALTER in 66 
GO TO in 33 
PERFORIYling 33 from 66 


Execution sequence indicators 
are printed. 
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Test ID 


Summary of Test 


Breakdoujn of Printed Results 


1SG11 


ALTERS in 12 

GO TOs in 01, 02 

PERFORIYling 01 thru 02 from 12 


Execution sequence indicators 
are printed . 


1SG12 


ALTERS in 55 

GO TOs in 55, 55 

PERFORIYling 55 thru 55 from 14 


Execution sequence indicators 
are printed. 


1SG13 


ALTERS in 70 

GO TOs in 07, 08 

PERFORIYling U7 thru 08 from 70 


Execution sequence indit atorL^ 
are printed. 


15G14 


ALTERS in 60 
GO TOs in 60 
PERFORIYling 60 thru 60 from 60 


Execution sequence indicntur: 
are printed . 
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Test 


[D 


Summary of Test 


Breakdoiun of Printed Results 


2SG01 


A 
B 
C 


Uses tests 1SG02,1SG03, and 1SG05 
uiith SEGITIENT LIITIIT 30. 


Printout of results from 
ISEG. 


2SG02 


A 
B 
C 


Uses tests 1SG11 , 1SG12, 1SG13 uiith 
SEGITIENT LimiT 9. 


Printout of results from 
ISEG. 
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Test id' 


Summary of Teet 


Breakdown of Printed Results 








ILBOl 


Compares copied versus a non- 
copied data item. 


One character for each comparison. 1 if 
found to be as expected, if not found 
to be as expected. 


1LB02 

1LB03 
1LB04 


Copied paragraphs move data 
items and check for expected 
contents. 


One character for each comparison, 1 if 
found to be ae expected, if not found 
to be as expected. 


FILE-CONTROL section is 
copied. 


One character for each comparison, 1 if 
found to be as expected, if not found 
to be as expected. 


A minimal report writer 
environment contains copied 
RD entry. 


The results are reports. These reports 
are validated by comparing them to the 
"standard" set of reports which are 
printed conventionally from the tests. 


1LB05 


A sequential file is written, 
read, and compared, using 
copied FD and 01 entries. 


One character for each comparison. 1 if 
found to be ae expected, if not found 
to be as expected. 


1LB06 


A minimal eort uiith INPUT 
and OUTPUT proceduree ie 
executed using a copied SD 
entry. 


aabbcc. . .xxyy?* 

Each of the rGQords returned js checked 
first on an indicativa non-^key field and 
then upon the Key field. The total 
record count is reflected in z. 


1LB08 


SOURCE COIYIPUTER and 0B:]ECT 
COIYIPUTER are copied. 


The test program listing must be 
checked to validate results. 


1LB09 


Suiitch status's in SPECIAL- 
NAIYlEs are copied. 


One character for each comparison. 1 if 
found to be as expected, if not found , 
to be as expected. 


ILBIO 


Copies I-0-CONTROL SAIYIE AREA 
clause. Uirites and reads 
back tuio sequential filee. 


One character for each comparison. 1 if 
found to be as expected, o if not found 
to be as expected. 
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Test ID 


Summary of Test 


Breakdomn of Printed Results 


2LB01 


Compares copied vereus a non- 
copied data item mith REPLAC- 
ING option used. 


One character for each comparison. 1 if 
found to be as expected, if not found 
to be as expected. 


2LB02 


Copied paragraphs move replaced 
data items and check for expec- 
ted contents. 


One character for each comparison, 1 if 
found to be as expected, if not found 
to be as expected. 


2LB03 


FILE-CONTROL section is copied 
mith the file name replaced. 


One character for each comparison, 1 if 
found to be as expected, if not found 
to be as expected. 


2LB05 


A sequential file is written, 
read, and compared, ueing PD 
and 01 entries copied mith the 
REPLACING option. 


One character for each comparison. 1 if 
found to be as expected, if not found 
to be as expected. 


2LB08 


SOURCE-COIYIPUTER and 0B3ECT- 
COItlPUTER names are copied mith 
the REPLACING option. 


The test program listing must be 
checked to validate results. 


2LB09 


SPECIAL-NAItlES is copied ujith 
the smitch status's replaced. 


One character for each comparison. 1 if 
found to be as expected, if not found 
to be as expected. 


2LB10 


Copiee I-O CONTROL SAIYIE AREA 
clause REPLACING the file 
names. UJrites and reads back 
tuio sequential files. 


One character for each comparison. 1 if 
found to be as expected, if not found 
to be as expected. 
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APPENDIX V 
PFIYl DIAGNOSTIC IY1E55AGE5. 

The follouing is a list of diagnostic messages uith their 
respectiv/e interpretation: 

Diagnostic lYlessage Explanation 

fCARD-RDR (YIANDATORY Environment table has missing 

\CARD 24 INFO (YIANDATORY specification for CARD-RDR. 

'C0(Y1PUTER-NA(Y1E (YIANDATORY Environment table hes missing 

CARD 1 INFO (YIANDATORY COIYIPUTER-NAIYIE . Card numbers 

CARD :2 INFO (YIANDATORY refer to card images generated 

for the Population File. 

ERROR IN FIRST 2 C0LUIY1N5 A control card uas expected. 

Chances are that this is a data 
card for a previous aborted 
action. 

FIELO 28 BLANK, ASSLKYIED D Environment Table input card 

number 9 has a blank in field 
28. D is assumed. 

FIELD 36 BLANK, A55U(Y1ED D Environment Table input card 

number 10 has a blank in field 
35 . D is assumed. 

INVALID ACTION Header card encountered mith an 

invalid action code. The valid 
action codes are A, D, C & P. 

(YIATCH-OLD ENTRIES DELETED On an add action If a header match 

occurs the old entries uill be 
deleted and the neu entries mill 
replace them. 

NO (YIATCH (Yleans old Population File (Ylaster 

is at EOF and no matching header 
uias found. In the case of an 
add this may not be an error. 
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Diagnostic Hflessage (cont'd.) 
NO lYlATCH— SO UIILL IGNORE 



1 



PRINTER-NAIYIE lYlANDATORY 
CARD 25 INFO lYlANDATORY 

SEQ ERROR IN ENU ON POP FILE 
ADUISE DELETING, THEN ADDING 



1 



TAPE-UNIT-1 lYlANDATORY 

card 19 info mandatory 

'tape-unit-2 mandatory 
|card 20 info mandatory 

'TAPE-UNIT-3 lYlANDATORY 
ICARD 21 INFO MANDATORY 

USABLE-SIZE MANDATORY 
CARD 4 INFO lYlANDATORY 



Explanation (cont'd.) 

On a change action if no matching 
header is found the action and 
subsequent change cards will 
be ignored. 

Environment table has missing 
specification for PRINTER-NAIYIE. 

Found sequence error on Pop- 
NEU) ulation File lYIaster within 
an Environment Table. This 
should never occur but may 
occur as the result of a 
tape read error . 

Environment table has missing 
specification for TAPE-UNIT-1. 

Environment table has missing 
specification for TAPE-UNIT-2. 

Environment table has missing 
specification for TAPE-UNIT-3. 

Environment table has missing 
USABLE-SIZE. 
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APPENDIX VI 

CONSIDERATIONS IN CREATING TESTS 

SEQUENCE NUIYIBERING 

Sequence numbers (column 1-6) must be aseigned to statements 
Uiithin each test in accordance Uiith the algorithm shown in 
Figure 6. 

Three points must be noted: 

1, Phase 3 of the Selector ineerts Division Headers and cer- 
tain section and paragraph-names on the basis of these 
sequence numbers, and therefor©, misnumbering will cause 
disorganization in the Selector output. 

2, Phase 3 of the Selector program checke for matching sequence 
numbers in adjacent cards. When this condition is detected, 
one of the matching pair will be deleted. A diagnoetic 
will be issued if the deleted card did not match the 

other in columns 7-72. Therefore, care must be taken in 
sequence numbering tests that appear in the same program 
(see the aseignmente in 3.1.1.2.1). Duplicate numbere 
should be assigned to only those iteme that are, in feet, 
duplicates. 

3, (Yloet of the available serial numbers have been exhausted 
by existing tests. The numbers remaining in each series 
can be ascertained by checking the listing of the highest 
numbered test in each module. 
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DIUISK 


3N SECTION 




CARD COLUiriN 




1 

— 


2 


3 


4 


5 


6 






PROG-ID 











1 








AUTHOR 











2 


00-99 




IDENT. 


INSTAL 











3 


SEQUENTIAL 






DATE-lUR 











4 


NO. 






DATE-COmP 











5 








SECUR 











6 








REIYIARKS 











7 








CONFIG 











8 






FUNCTION 


0000-9999 












SEQUENTIAL NUfflBER 




ENUIR. 


FILE-CONTROL 











RERUN 
















NUC 


1 SAmE 


000-999 






I-0-CONTROL 


1 


1 TBL 

2 SEQ 


2 lYlULTIPLE 


SEQUENTIAL NUIYIBER 
















FILE SECTION 


2,3 


3 RAC 






DATA 


yjORKING- 
STORAGE (77) 


4 


5 SRT 

6 RPUI 


0000-9999 






(OTHERS) 


5 


7 SEG 


SEQUENTIAL NUIYIBER 






REPORT SECTION 


6 


8 LIB 

9 SUPPORT 








DECLARATIVES 


7 


PROC. 














NON-DECLAR. 


8,9 









NOTE: Sequential number field may restart at zero 'OJheneuer 
a digit to its left changes 



Figure 6, Sequence Numbering for Test Cards 
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TEST REFERENCE TO ENUIRONITIENTAL DATA 

Test routine cards that are to be replaced by environmental data en- 
tries have a special format. Column 7 contains an *E'» 
Columns 8-25 may contain the drop range indicator: 

FROIYlmmmmmmTOnnnnnn 

Thie indicates that carde from this teet with sequence numbers 
mmmmmm, nnnnnn and all intervening carde will be eliminated 
by the Selector if the environmental entry whose sequence num- 
ber appears in columns 75 - 80 of this card has an N in its 
column 7 (indicating that the information required ie not 
available for thie configuration). Column 74 containe a D if 
the entire teet is to be eliminated by the Selector if the 
environmental data is abeent, (Thie indicator overrides columns 
8 - 25). In the absence of either of these indicators, only 
the requesting card iteelf will be dropped if the environmental 
data is miesing. Column 75 - 80 contains the sequence number 
of the entry in the environmental data set that is to replace 
col 7 - 80 of thie entry. 

For example, coneider the following carde from test 1N022, each of uhich 
requests replacement by an environmental entry: 

1 7 74 80 

TA1N022. .. 

400124E ET0040 

400136ErR0IY1400134T0400145 ET0300 

400181E DET0050 

Card 400124 requests that the environment data card with sequence number 
ET0040 replace it from col 7 through 80. If card ET0040 contains an N 
in ite column 7, card 400124 will be omitted from the test by the 
Selector program. Card 400136 requeets replacement by environment 
entry ET0300. If ET0300 hae an N in ite column 7, the Selector will 
omit cards 400134-400145 from test 1N022. Card 400181 requests replace- 
mgnt by card ET0050. If ET0050 hae an N in its column 7, test 1N022 
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ujill be omitted in its entirety by the Selector program. In 
any case, when the requested environmental data card has an 
N in its column 7, a diagnostic message is issued. 

DATA NAiniNG CONVENTION 



Data items that are used as source and receiv/ing items for test state- 
ments are assigned names under the follouiing naming convention: 



fuRK •^ r 



cu 
cs 

DU 
DS 
IX 
XJ 
XN 
AJ 
AN 



(Pnnnnl f irifir 1 

-r } -^"""{^ -Ak}\ — 
nnnnnl L JLJLJL J 



-nnnn 



GRP-name 

The uppermost format is used for all elementary items except those with 
editing symbols uithin their PICTURE. Fields subject to change bagin uith 
the designation *IURK * uihile constant source items begin u/ith a mnemonic or 
literal indication of their VALUE . Because 1NUC requires that data-names 
begin uiith an alphabetical character, the names assigned to source items 
containing numeric literals as value uiill begin oiith the character *A* . 



The next letters indicate: 



CU 
CS 
DU 
DS 
IX 
XJ 
XN 
A3 
AN 



unsigned COIYIPUTATIONAL 
signed COIYIPUTATIONAL 
unsigned DISPLAY 
signed hlSPLAY 
index items 

alphanumeric JUSTIFIED 
alphanumoric unjustified 
alphabetic JUSTIFIED 
alphabetic unjustified 
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The next five characters indicate the size and point location. P 
indicates the scaling P, either left or right, and when it appears, the 
tujo digits nearest it indicate the number of P's ujhile the other tmo 
digits indicate the number of 9*s in the item's PICTURE. \l indicates 
an implied decimal point. The digits indicated by n give the number 
of X's, 9's, or A's in the PICTURE. The optional ^nnn indicates an 
OCCURS clause with nnn occurrences. The trailing D indicates a 
DEPENDING clauee while F indicates the lack of same. S indicates 
an item containing a REDEFINES clause, L or R indicate SYNCHRONIZED 
LEFT and RIGHT respectively and the final nnnn provides for a unique 
serial number. 

The lower two formats, one for edited iteme (both alphanumeric and 
numeric) and one for group items are self explanatory. Thie convention 
eerves two purposes. First, it yields a self -documenting data-name . 
Second, and more important, it enables the Selector Program to identify 
elementary non-report level 77 items with identical data descriptions 
through a simple comparison of data-names. Ulhen the result of this 
comparison is equal, the Selector eliminates from each test program 
all but one of each eet of identically defined level 77 data items. 
Elimination may be suppressed by adding to the data-name of a given 
item a unique serial number, ehown as the final nnnn in the preceding 
format. 

The Selector program aleo eliminates all but one from each set 
of FD's and Ol's with identical names and descriptions. UJhen an 
FD ie eliminated, the FD clause itself, its defining claueee 
(RECORDING (TIODE, BLOCK etc.)» and the definitions of all its re- 
cords are dropped, Ulhen a level 01 item is eliminated all items 
subordinate to it are also eliminated. The namee of items with 
level numbers 02-49 are not examined on an individual basis, and 
these items are only eliminated when the level 01 to which they 
are subordinate ie eliminated. 
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Because each Test includes all the file and data definitions 
it requires, this process of elimination is essential in gene- 
rating a test program of reaeonable size. 

USE or THE SUPPORT ROUTINE 

The Support Routine compares the result achieved by each test 
uiith the expected result. If the character by character compa- 
rison indicates a difference, the resulte are printed with an 
underline. If 'ALL' is stated on the HDU/R card (see 3.2.1) all 
reeulte are printed. 

In order to utilize the routine, the follouiing procedure steps 
are required : 

1. iriOVE results TO SUP-UIK-A. 

SUP-IUK-A is a 120 character area ueed to hold results. If 
more than one result is to be moved, each can be moved 
character by character to SUP-UIK-B under control of a sub- 
script. 

2. lYlOVE 'expected-result*' TO SUP-IUK-C. 

Expected results can be most eaeily stated in a literal. 
Note that the result is terminated by the additional charac- 
ter '*'. Tltris character limits the comparison betuieen 
SUP-UIK-A and SUP-UIK-C. 

3. iriOVE 'test-name' TO SUP-ID-UIK-A. 

Test-names are five charactere in length and are discussed 
in 3.1.1.2.1 

4. PERFORin SUPPORT-RTN THRU SUP-RTN-C. 
Return is made to the next statement. 
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Uariatione of this standard linkage may be required by results 
that exceed 120 charactere, or by other unusual circumstances. 
Perusal of the test lietings luill indicate various alterations 
that can be ueed. 
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APPENDIX VII 

SYSTEIYl GENERATION SPECIFICATIONS 

Required Configuration 

Any IBIYl System 360 luith the follouiing minimum configuration may 
be used: 

1 . a console typeuiriter uiith unit address OIF 

2. a card punch uiith unit address OOD 

3. t\Do 9-track 800 bpi tape units luith unit addresses 182 and 183, 

Procedure 

lYlount input tape on tape unit 182, Ready a scratch tape (for the 
population f ile ) on tape unit 183, Ready the card punch (OOD) • Set 
the machine load address to unit 182 and press LOAD. The program mill 
punch an object deck of the CCUS Character Code Conversion program 
and source decks for the three phases of the CCUS Selector Program. 
It mill then copy the Population File onto the tape readied on unit 
183. The user may noiu separate the punched output into four decks: 

1. the character code conversion program loadable deck 

2. the Selector phase 1 source deck 

3. the Selector phase 2 source deck 

4. the Selector phase 3 source deck • 

Each of these decks is preceded by a special header card to make it 
easy to find. Each header contains an identification in columns 
1-12 for the deck follouiing it (TRANSLATOR, SEL PHASE 1, SEL PHASE 
2, SEL PHASE 3). Columns 13-80 contain 12-9 punches making the 
headers easy to locate in the uninterpreted deck. 
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The Character Code Conversion Program may noui be used to translate 

the neui population file to the desired character set. The Selector 

programs may be compiled and used to select the other CCUS utility 
programs and tests. 

NORHflAL End of Job Hflessaqe 

END OF GOB - Normal end of job has been reached. 

ABNORHflAL End of Job Hflessaqes 

1. I/O ERROR TAPE1 - An error occurred reading the input tape on 1B2. 

2. l/O ERROR TAPE2 - An error occurred uiriting the output tape on 1B:5, 

3. l/O ERROR PUNCH - An error occurred punching the output. 

In all cases, rerun job. 
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APPENDIX VIII 
SAIYIPLE CONTROL CARDS FOR CHARACTER CONVERSION PROGRAIYl 
The follouiing unusual characters appear in the control cards: 

character card code 

t 12-7-8 

-1 11-7-8 

12-2-8 

t 12-0 

_ 0-5-8 

: 2-8 

For illustrative purposes, all of the cards shotun belou; contain 
the complete range of characters that differ among the four 
implementations. In actual use, a pair of 50URCE/083ECT cards 
need only contain those characters that differ betu/een the tu;o 
implementations in question. For example, the cards for the 
IBIYl/360 to B-3500 conv/ersion need only contain the quote ( ' to " ) < 

The sample control cards are as f ollou/s : 

I8(Yl/360 

50URCE181C8( );+=><•& 

CDC-6400 

083ECT18OA89Sni &#-i[z;@& 

GE-635 

J^B3ECT180A8(); ^_=:+>& 

8-3500 

0B3ECT182C8( );+=><"& 

U-1108 

J^B3ECT180A8?5n;&# = + @: 
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